Product: | TOTVS Backoffice |
Product Line: | Protheus Line |
Industry: | Services |
Module: | TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAATF) |
Function: | ATFXSAL |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46829 |
Entry point ATFSINAL allows handling the variable cSinal.
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
If ExistBlock("ATFSINAL") |
...
cSinal := Execblock("ATFSINAL",.f.,.f.,{cConta,dData,cTipo,aValor[1],aValor[2],aValor[3],aValor[4],aValor[5],cSinal,nTaxa,cSubConta,cFil,cClvl,cCusto,cTipoCnt, FunName(), aValor }) |
...
Endif |
| Bloco de código | |||||
|---|---|---|---|---|---|
|
Endif
...
| ||
#INCLUDE "PROTHEUS.CH" |
...
User Function ATFSINAL |
...
Local cConta := PARAMIXB[1] |
...
Local dData := PARAMIXB[2] |
...
Local cTipo := PARAMIXB[3] |
...
Local aValor1 := PARAMIXB[4] |
...
Local aValor2 := PARAMIXB[5] |
...
Local aValor3 := PARAMIXB[6] |
...
Local aValor4 := PARAMIXB[7] |
...
Local aValor5 := PARAMIXB[8] |
...
Local cSinal := PARAMIXB[9] |
...
Local nTaxa := PARAMIXB[10] |
...
Local cSubConta := PARAMIXB[11] |
...
Local cFil := PARAMIXB[12] |
...
Local cClvl := PARAMIXB[13] |
...
Local cCusto := PARAMIXB[14] |
...
Local cTipoCnt := PARAMIXB[15] |
...
Local cFunName := PARAMIXB[16] |
...
Local aValor := PARAMIXB[17] |
...
// CUSTOMER VALIDATION |
...
If cSinal == '+' |
...
cSinal := '-' |
...
EndIf |
...
Return cSinal |
| Aviso |
|---|
...
|
...
|