Product Line: | Microsiga Protheus Line |
---|---|
Industry: | Services |
Module: | SIGAFIS - TAX MANAGEMENT |
Country: | All |
This entry point is used to transmit ICMS (MATA953) calculation information such as code, description, value, sub-code, and GNRE (National Tax Collection Form). This happens after confirmation of the calculation.
Aviso | ||
---|---|---|
| ||
The use of this entry point is the sole responsibility of the client, as it will have a direct impact on the bookkeeping of invoices and tax records. |
Name | Type | Description |
---|
<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="aa51da81-aa23-4de4-bd3d-41c7fd044c50"><ac:plain-text-body><![CDATA[
ParamIXB[n][1] | character | calculation row/code |
<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="f74c8642-29c6-4e18-83ce-9f78b52dd239"><ac:plain-text-body><![CDATA[
ParamIXB[n][2] | character | description |
]]></ac:plain-text-body></ac:structured-macro>
<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="2a365402-7e5a-4c2a-a9c4-c9570e19b0eb"><ac:plain-text-body><![CDATA[
ParamIXB[n][3] | Numeric | value calculated |
]]></ac:plain-text-body></ac:structured-macro>
ParamIXB[n][4] | character | sub-code |
]]></ac:plain-text-body></ac:structured-macro>
ParamIXB[n][5] | character | GNRE |
]]></ac:plain-text-body></ac:structured-macro>
This Entry Point has no return.
...
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
|
#INCLUDE 'protheus.ch'
|
...
User Function A953CONT()
|
...
local cCod := ""
local cDesc := ""
local nValor := 0
local cSubCod := ""
local cGNRE := ""
local nCount := 0
|
...
for nCount := 1 to len(ParamIXB)// ParamIXB is received implicitly
cCod := ParamIXB |
...
[nCount |
...
] |
...
[1 |
...
] // code
cDesc := ParamIXB |
...
[nCount |
...
] |
...
[2 |
...
] // description
nValor := ParamIXB |
...
[nCount |
...
] |
...
[3 |
...
] // value
cSubCod := ParamIXB |
...
[nCount |
...
] |
...
[4 |
...
] // sub-code
cGNRE := ParamIXB |
...
[nCount |
...
] |
...
[5 |
...
] // GNRE
|
...
if cCod == "001" .and. nValor > 0
ConOut(cCod,cDesc,nValor,cSubCod,cGNRE)
|
...
endif |
...
next
Return Nil
|
...
|
...