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 |