Salve salve....
Ponto de entrada MT103ISS- ( Compras - Documento de Entrada )
MATA103-MT103ISS - Valida exclusão do documento de entrada
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} MT103ISS
Valida exclusão do documento de entrada
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function MT103ISS()
Local cFornIss := PARAMIXB[1] as character // Código do fornecedor de ISS atual para gravação.
Local cLojaIss := PARAMIXB[2] as character // Loja do fornecedor de ISS atual para gravação.
Local cDirf := PARAMIXB[3] as character // Indicador de gera dirf atual para gravação.
Local cCodRet := PARAMIXB[4] as character // Código de retenção do título de ISS atual para gravação.
Local dVcIss := PARAMIXB[5] as date // Data de vencimento do título de ISS atual para gravação.
Local aRet := {} as array
aAdd( aRet , cFornIss) //Cod Forn ISS
aAdd( aRet , cLojaIss) //Cod Loja Forn ISS
aAdd( aRet , cDirf) //Gera Dirf ? - 1=Sim, 2=Nao
aAdd( aRet , cCodRet) //Codigo de Receita
aAdd( aRet , dVcIss) //Vencimento ISS
Return( aRet )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima