Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
M103L665 - Efetua Lançamento Contábil
M103L665 - Efetua Lançamento Contábil

Ponto-de-Entrada: M103L665 - Efetua Lançamento Contábil
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição:

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.

Eventos

 

 

Programa Fonte
mata103.PRW
Sintaxe

M103L665 - Efetua Lançamento Contábil ( )

Retorno
    ()
Exemplos
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     
Variáveis
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão