Exemplo do Ponto de Entrada F060OK.
Exemplo do Ponto de Entrada:
//Bibliotecas
#Include "Protheus.ch"
/*---------------------------------------------------------------------*
| P.E.: F060OK |
| Desc: P.E. que valida dados ao confirmar Tranferência Financeira |
| Link: http://tdn.totvs.com/display/public/mp/F060OK |
*---------------------------------------------------------------------*/
User Function F060OK()
Local aArea := GetArea()
Local lRet := .T.
Local aAux := aClone(ParamIxb)
//Conteudo de aAux
//[01] cSituacao = Situacao para a qual esta sendo transferido o titulo
//[02] cPort060 = Banco para o qual esta sendo transferido o titulo
//[03] cAgen060 = Agencia para a qual esta sendo transferido o titulo
//[04] cConta060 = Conta para a qual esta sendo transferido o titulo
//[05] lDesc = Informa se a carteira para a qual esta sendo transferido o titulo eh 2 (descontada) ou 7 (Descontada caucionada)
//[06] cCliente = Cliente, Loja e Nome do Cliente do titulo
//[07] cTitulo =`Prefixo, Numero e Parcela do titulo
//[08] cSituAnt = Situacao de cobranca anterior
//[09] cContrato = Numero do contrato bancário
//[10] cPortador = Portador anterior do titulo
lRet := MsgYesNo("Confirma? Banco "+aAux[02])
RestArea(aArea)
Return lRet
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;