Exemplo do Ponto de Entrada F560VMOV.
Exemplo do Ponto de Entrada:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | //Bibliotecas#Include "Protheus.ch"/*---------------------------------------------------------------------* | P.E.: F560VMOV | | Desc: Inclusão de Movimentação Caixinha | | Link: http://tdn.totvs.com/display/public/mp/F560VMOV | *---------------------------------------------------------------------*/User Function F560VMOV() Local aArea:= GetArea() Local aAreaET:=SET->(GetArea()) Local lRet := .T. Local cBco := "" Local cAge := "" Local cCnt := "" //Posicionando no caixinha DbSelectArea('SET') SET->(DbSetOrder(1)) SET->(DbGoTop()) If SET->(DbSeek(FWxFilial('SET') + M->EU_CAIXA)) cBco := SET->ET_BANCO cAge := SET->ET_AGEBCO cCnt := SET->ET_CTABCO lRet := MsgYesNo("Continuar? Banco: "+cBco, "Atenção") EndIf RestArea(aAreaET) 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;