M103L665 - Efetua Lançamento Contábil

Localizado na rotina Exclusão da Nota Fiscal de Entrada.

Este ponto de entrada permite efetuar o Lançamento 665 (Gera Lançamento Contábil - Exclusão Total), de acordo com a necessidade.

Os parâmetros recebidos pelo ponto de entrada, estão no array PARAMIXB, sendo:
PARAMIXB[1] = Lote para Lançamento Contábil
PARAMIXB[2] = Cabeçalho do Lançamento Contábil
PARAMIXB[3] = Arquivo
PARAMIXB[4] = Habilita Digitação
PARAMIXB[5] = Habilita Aglutinação

LOCALIZAÇÃO: Na função a103Grava()

EM QUE PONTO: Sempre que ocorrer a exclusão da Nota Fiscal de Entrada.

Caso o ponto de entrada não exista, o sistema efetua a contabilização em sua forma padrão.

mata103.PRW

M103L665 - Efetua Lançamento Contábil ( )

()

User Function M103L665()  Local aArea       := GetArea()Local nValor 	:= 0 Local cLote	:= paramixb[1]Local nHdlPrv  	:= paramixb[2]Local cArquivo    := paramixb[3]   Local lDigita	:= paramixb[4]Local lAglutina	:= paramixb[5]Local aCtbInf	:= {} //Array contendo os dados para contabilização on linenValor : = /// valor a ser obtido para contabilização  ///If nValor > 0    RodaProva(nHdlPrv,nValor)    aAdd(aCtbInf,cArquivo)    aAdd(aCtbInf,nHdlPrv)    aAdd(aCtbInf,cLote)    aAdd(aCtbInf,lDigita)    aAdd(aCtbInf,lAglutina)    aAdd(aCtbInf,{{"F1_DTLANC",dDataBase,"SF1",SF1->(Recno()),0,0,0}})EndIf//Chama função de contabilizaçãoIf Len(aCtbInf) != 0   Begin Transaction   cA100Incl(aCtbInf[1],aCtbInf[2],3,aCtbInf[3],aCtbInf[4],aCtbInf[5],,,,aCtbInf[6])   End TransactionEndifaCtbInf	:= {}RestArea(aArea)  Return