Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Rhuan Eugenio Abadias Carvalho

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Anedino dos Santos

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Este ponto de entrada é utilizado para transmitir informações da apuração de ICMS , (MATA953) como código,  descriçãodescrição, valor, subcódigo e GNRE, sendo chamado na rotina MATA953. Após . Isso acontece após a confirmação da apuração é enviado como parâmetro um array contendo as informações da apuração com a seguinte estrutura:

[1] CODIGO

[2] DESCRIÇÃO

[3] VALOR

[4] SUB-CODIGO

[5 ]GNRE

.

Aviso
titleImportante!

A utilização desse ponto de entrada é de responsabilidade exclusiva do cliente, pois terá impacto direto na escrituração das notas e dos livros fiscais.


03. ESPECIFICAÇÃO

A953CONT - Informações do ICMS ( [ aArray ] ) --> Array

...

Parâmetros do ponto de entrada:

NomeTipoDescriçãoDefaultObrigatórioReferênciaaArrayArray of Record

Retorno

Array com 5 posições : [1] CODIGO[2] DESCRIÇÃO[3] VALOR[4] SUB-CODIGO[5 ]GNRE

ParamIXB[n][1]caractércódigo/linha da apuração
ParamIXB[n][2]caractérdescrição
ParamIXB[n][3]Numéricovalor apurado
ParamIXB[n][4]caractérsub-código
ParamIXB[n][5]caractérGNRE

Retorno: Nil

Este Ponto de Entrada não tem reorno.

04. EXEMPLO DE UTILIZAÇÃO

...

Bloco de código
languagejava
themeRDarkMidnight
titleA953CONT
#INCLUDE 'protheus.ch'

User Function A953CONT()

Locallocal aA953cCod := ParamIXB1""
local cCodcDesc := ""
local cDesc nValor := 0
local cSubCod := ""
local cValorcGNRE := ""
local cSubCodnCount := ""0

If !Empty(aA953)
	aA9531 := cCod
	aA9532 := cDesc
	aA9533 := cValor
	aA9534 := cSubcod
	aA9535 := cGnre
Endif

Return(aA953)for nCount  := 1 to len(ParamIXB)// ParamIXB é recebido de forma implícita
    cCod    := ParamIXB[nCount][1] // código
    cDesc   := ParamIXB[nCount][2] // descrição
    nValor  := ParamIXB[nCount][3] // valor
    cSubCod := ParamIXB[nCount][4] // sub-código
    cGNRE   := ParamIXB[nCount][5] // GNRE

    if cCod == "001" .and. nValor > 0
        ConOut(cCod,cDesc,nValor,cSubCod,cGNRE)
    endif

next
Return Nil




05. INFORMAÇÕES ADICIONAIS

...