Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • A810VLAM - Valida amarração contábil -- 108549

Ponto-de-Entrada: A810VLAM - Valida amarração contábil
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil) , Português (Portugal) , Espanhol , Inglês
Descrição: 
Ponto de entrada para validação da gravação da rotina de amarração contábil.
Eventos

...

    For nX:=1 To Len(aCubos)
        If aCubos[nX][01]

            If ( ExistBlock("A810VLAM") )
                lRet := ExecBlock("A810VLAM",.F.,.F.,{lRet,nX,aCubos})
                If ValType(lRet) <> "L"
                    lRet := .T.
                EndIf                           
            EndIf

            If lRet

...

            Endif

...

    Next nX 
...

Programa Fonte 
CTBA810.PRW
Sintaxe

A810VLAM - Valida amarração contábil ( [ lRet ], [ nX ], [ aCubos ] ) --> lRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
lRet Lógico Retorno lógico da função
nX Array of Record Posição atual da array aCubos
aCubos Array of Record Array com as entidades
Retorno
    lRet(logico)
Observações

            If ( ExistBlock("A810VLAM") )
                lRet := ExecBlock("A810VLAM",.F.,.F.,{lRet,nX,aCubos})
                If ValType(lRet) <> "L"
                    lRet := .T.
                EndIf                           
            EndIf

Exemplos 
#include "Protheus.ch"User Function A810VLAM()Local lRetorno	lRetorno := DbSeek(xFilial('CTA')+M->CTA_REGRA )	Return lRetorno
Variáveis
Nome Tipo Escopo Pode Alterar descrição
__CTA Record Global Não