PE - MTATIP71 - Tratamento do registro tipo 71

01. DADOS GERAIS

Linha de Produto:	Microsiga Protheus®
Segmento:	Serviços
Módulo:	Fiscal
Programa:	MATA940.PRW

02. DESCRIÇÃO

Este ponto de entrada gera o registro 71 é gerado por meio do ponto de entrada descrito a seguir.

Neste ponto de entrada é necessário que o arquivo temporário (R71) esteja preenchido. Esse ponto de entrada é chamado cada vez que for processado um novo registro do Livro Fiscal (SF3) relativo à nota fiscal de transporte. A estrutura do arquivo temporário R71 é:

Campo	Tipo	Tamanho	Decimal
A71_CGCTOM	C	014	0
A71_IETOM	C	014	0
A71_DTCONH	D	008	0
A71_UFTOM	C	002	0
A71_MODCON	C	002	0
A71_SERCON	C	001	0
A71_SUBCON	C	002	0
A71_NUMCON	C	006	0
A71_UFREM	C	002	0
A71_CGCREM	C	014	0
A71_IEREM	C	014	0
A71_DTNOTA	D	008	0
A71_MODNOT	C	002	0
A71_SERNOT	C	003	0
A71_NUMNOT	C	006	0
A71_VALNOT	N	014	2

03. ESPECIFICAÇÃO

Parâmetros do ponto de entrada:

Nome

Tipo

Descrição

PARAMIXB

Array of Record

[1] = Não utilizado

[2] = Array com os dados da SF3

[2][1] - F3_NFISCAL
[2][2] - F3_SERIE
[2][3] - F3_CLIEFOR
[2][4] - F3_LOJA
[2][5] - F3_CFO
[2][6] - F3_TIPO
[2][7] - F3_ESPECIE
[2][8] - F3_ALIQICM
[2][9] - F3_PDV
[2][10] - F3_ENTRADA
[2][11] - F3_ICMSRET
[2][12] - F3_ISENICM
[2][13] - F3_DTCANC
[2][14] - F3_CODISS
[2][15] - F3_OUTRICM
[2][16] - F3_VALICM
[2][17] - F3_VALCONT
[2][18] - F3_EMISSAO
[2][19] - F3_BASEICM
[2][20] - F3_OBSERV
[2][21] - F3_FORMUL
[2][22] - F3_ESTADO
[2][23] - F3_DESPESA
[2][24] - F3_FORMULA
[2][25] - F3_VALIPI
[2][26] - F3_ISENIPI
[2][27] - F3_OUTRIPI
[2][28] - F3_BASEIPI
[2][29] - F3_BASERET
[2][30] - F3_IPIOBS
[2][31] - F3_NRLIVRO
[2][32] - F3_FILIAL
[2][33] - F3_CREDST
[2][34] - F3_ANTICMS
[2][35] - F3_ICMSCOM
[2][36] - F3_ICMSDIF
[2][37] - F3_OBSSOL
[2][38] - F3_OBSICM
[2][39] - SintSitDoc((cAliasSF3)->F3_CODRSEF,(cAliasSF3)->F3_DTCANC,(cAliasSF3)→F3_NFISCAL,(cAliasSF3)→F3_SERIE,(cAliasSF3)→F3_CLIEFOR,(cAliasSF3)→F3_LOJA) // Situação do documento
[2][40] - (cAliasSF3)->F3_VALANTI
[2][41] - Iif( lSintMg , (cAliasSF3)->F3_NFEMP, "") // Implementacao do Sintegra MG - Registro 88A - Nota de Empenho
[2][42] - SerieNfId(cAliasSF3,2,"F3_SERIE") // Série Anterior ao projeto Chave unica
[2][43] - F3_CREDST
[2][44] - F3_CHVNFE

Retorno:

Nome	Tipo	Descrição
	Nil	Este ponto de entrada não fornece retorno.

04. EXEMPLO DE UTILIZAÇÃO

MTATIP71.PRW

#Include "Protheus.ch"

User Function MTATIP71()
	
 	//o array de dados da SF3 é o segundo parâmetro do ponto de entrada, deve-se obte-lo conforme abaixo
    Local aSF3 := ParamIxb[2]

    dbSelectArea("SA1")
    dbSetOrder(1)
    dbSeek(xFilial()+aSF3[1,3]+aSF3[1,4])

	//informa os valores na tabela R71
    dbSelectArea("R71")
    RecLock(Alias(), .T.)
    R71->A71_CGCTOM := SA1->A1_CGC
    R71->A71_IETOM  := SA1->A1_INSCR
    R71->A71_UFTOM  := SA1->A1_EST
    R71->A71_MODCON := "08"
    R71->A71_SERCON := aSF3[1,2]
    R71->A71_SUBCON := Space(02)
    R71->A71_NUMCON := aSF3[1,1]
    R71->A71_UFREM  := SA1->A1_EST
    R71->A71_CGCREM := SA1->A1_CGC
    R71->A71_IEREM  := SA1->A1_INSCR
    MsUnlock()

Return Nil

05. DEMAIS INFORMAÇÕES

Árvore de páginas