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 |
Retorno:
Nome | Tipo | Descrição |
---|---|---|
Nil | Este ponto de entrada não fornece retorno. |
04. EXEMPLO DE UTILIZAÇÃO
#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