Salve salve....
Ponto de entrada F040ISS- ( Financeiro- Contas a Receber)
FINA040-F040ISS - Gravação de título de ISS
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} F040ISS
Gravação de título de ISS
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function F040ISS()
Local aArea := GetArea() as array
Local nSavRec := ParamIXB as numeric
//Atualização 2017.03.21. Eurai Rapelli - INC088394 - Registro bloqueado - Prep. Doc. Saída
If SE2->( EOF() )
Conout('[F040ISS] FIM DE TABELA ')
Return( Nil )
Endif
If RecLock('SE2',.F.)
dDataISS := DaySum(FirstDate( MonthSum( SE2->E2_EMISSAO, 2)),14)
SE2->E2_VENCTO := dDataISS
SE2->E2_VENCREA := DataValida(dDataISS)
SE2->(MsUnlock())
EndIf
RestArea(aArea)
Return( Nil )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima