Home

Linha Microsiga Protheus

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

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
A810VLAM - Valida amarração contábil
A810VLAM - Valida amarração contábil

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:
NomeTipoDescriçãoDefaultObrigatórioReferência
lRetLógicoRetorno lógico da função
nXArray of RecordPosição atual da array aCubos
aCubosArray of RecordArray 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
NomeTipoEscopoPode Alterardescrição
__CTARecordGlobalNão