Salve salve....
Ponto de entrada F150SUM- ( Financeiro - Geracao do Arquivo de Envio de Titulos ao Banco )
FINA150-F150SUM - Sera utilizado para agregar valores especificos nas variaveis nSomaValor e nSomaVlLote
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} F150SUM
Sera utilizado para agregar valores especificos nas variaveis nSomaValor e nSomaVlLote
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User function F150SUM()
Local aArea := GetArea() as array
Local aSE1 := SE1->(GetArea()) as array
Local cChave := SE1->(xFilial("SE1")+E1_PREFIXO+E1_NUM+E1_PARCELA+E1_TIPO+E1_CLIENTE+E1_LOJA) as character
Local nSaldo := 0 as numeric
Do While SE1->(!Eof().and.SE1->(xFilial("SE1")+E1_PREFIXO+E1_NUM+E1_PARCELA+E1_TIPO+E1_CLIENTE+E1_LOJA)==cChave)
nSaldo := SE1->E1_SALDO - (SE1->E1_IRRF + SE1->E1_INSS)
SE1->( dbSkip() )
EndDo
RestArea(aSE1)
RestArea(aArea)
Return( nSaldo )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima