Exemplo do Ponto de Entrada FA470CTA.
Exemplo do Ponto de Entrada:
//Bibliotecas
#Include "Protheus.ch"
/*----------------------------------------------------------------------------------------------*
| P.E.: FA470CTA |
| Desc: Leitura do Saldo Inicial |
| Link: http://tdn.totvs.com/display/public/mp/FA470CTA+-+Leitura+de+saldo+inicial+--+12006 |
*----------------------------------------------------------------------------------------------*/
User Function FA470CTA()
Local aArea := GetArea()
Local aRetorno := ParamIXB
Local cBco := aRetorno[1]
Local cAge := aRetorno[2]
Local cCnt := aRetorno[3]
//Posicionando no banco
DbSelectArea('SA6')
SA6->(DbSetOrder(1))
SA6->(DbGoTop())
If SA6->(DbSeek(FWxFilial("SA6")+ cBco + cAge + cCnt ))
//Se tiver data final
If !Empty(SA6->A6_X_DTLIM)
//Se a database do sistema for menor que a do cadastro de bancos
If Date() < SA6->A6_X_DTLIM
Final( "Não é possível fazer esta movimentação financeira "+;
"Origem: FA470CTA")
aRetorno[1] := ""
aRetorno[2] := ""
aRetorno[3] := ""
EndIf
EndIf
EndIf
RestArea(aArea)
Return aRetorno
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;