SIGACUSB-MTSLDLOT - Permitir a utilização de endereços

Salve salve....

Ponto de entrada MTSLDLOT- ( Todos os locais de lote. Seleção de lote )

SIGACUSB-MTSLDLOT - Permitir a utilização de endereços

#INCLUDE "TOTVS.CH" 

/*/{Protheus.doc} MTSLDLOT
Permitir a utilização de endereços

@type        function
@author      Eurai Rapelli
@since       2023.01.01
/*/
User Function MTSLDLOT()
Local lRet := .T. as logical
Local cB8PRODUTO := ParamIXB[01] as character
Local cB8LOCAL := ParamIXB[02] as character
Local cB8LOTECTL := ParamIXB[03] as character
Local cB8NUMLOTE := ParamIXB[04] as character
Local cV1 := ParamIXB[05] as character
Local cV2 := ParamIXB[06] as character
Local nSaldo := ParamIXB[07] as numeric
Local lConsulta := ParamIXB[08] as logical



Return( lRet )

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

Um abraço, e até a próxima