Exemplo Rotina Automática FINA080
Produto: | Protheus |
Versões: | Todas |
Ocorrência: | |
-#Include 'Protheus.ch'
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"
User Function MyMata080()
Local aTitBx := {}
Private lMsErroAuto := .F.
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "FIN"
DbSelectArea("SE2")SE2->(DbSetOrder(1))SE2->( | Bloco de código |
---|
| #Include "TOTVS.ch"
User Function TFINA080()
Local nOpc := 3 // 3=BAIXA | 5=CANCELAMENTO
Local aTitBx := {}
Private lMsErroAuto := .F.
RPCSetEnv("99", "01", NIL, NIL, "FIN", NIL, {"SE2"})
If (nOpc == 3)
DbSelectArea("SE2")
DbSetOrder(1)
DbSeek(xFilial("SE2") + "TST" + "000000001") |
|
)AADD
Aadd(aTitBx, {"E2_PREFIXO", SE2->E2_PREFIXO, NIL}) |
|
AADD
Aadd(aTitBx, {"E2_NUM", SE2->E2_NUM, NIL}) |
|
AADD
Aadd(aTitBx, {"E2_PARCELA", SE2->E2_PARCELA, NIL}) |
|
AADD
Aadd(aTitBx, {"E2_TIPO", SE2->E2_TIPO, NIL}) |
|
AADD
Aadd(aTitBx, {"E2_FORNECE", SE2->E2_FORNECE, NIL}) |
|
AADD
Aadd(aTitBx, {"E2_LOJA", SE2->E2_LOJA, NIL}) |
|
AADD
Aadd(aTitBx, {"AUTMOTBX", "DAC", NIL}) |
|
AADD
Aadd(aTitBx, {"AUTDTBAIXA", dDataBase, NIL}) |
|
AADD
Aadd(aTitBx, {"AUTHIST", "Baixa Teste", NIL}) |
|
lMsErroAuto := .f.
MSExecAuto
EndIf
If (nOpc == 5)
DbSelectArea("SE2")
DbSetOrder(1)
DbSeek(xFilial("SE2") + "TST" + "000000001")
Aadd(aTitBx, {"E2_PREFIXO", SE2->E2_PREFIXO, NIL})
Aadd(aTitBx, {"E2_NUM", SE2->E2_NUM, NIL})
Aadd(aTitBx, {"E2_PARCELA", SE2->E2_PARCELA, NIL})
Aadd(aTitBx, {"E2_TIPO", SE2->E2_TIPO, NIL})
Aadd(aTitBx, {"E2_FORNECE", SE2->E2_FORNECE, NIL})
Aadd(aTitBx, {"E2_LOJA", SE2->E2_LOJA, NIL})
EndIf
MsExecAuto({|x, y| FINA080(x, y)}, |
|
aTitBxI 3)If lMsErroAuto
MostraErro()
Else
Conout("Baixou")
EndIf
RESET ENVIRONMENT
Return(.T.)
Observações: | nOpc)
If (lMsErroAuto == .T.)
MostraErro()
ConOut(Repl("-", 80))
ConOut(PadC("Teste FINA080 finalizado com erro!", 80))
ConOut(PadC("Fim: " + Time(), 80))
ConOut(Repl("-", 80))
Else
ConOut(Repl("-", 80))
ConOut(PadC("Teste FINA080 finalizado com sucesso!", 80))
ConOut(PadC("Fim: " + Time(), 80))
ConOut(Repl("-", 80))
EndIf
RestArea(aArea)
RPCClearEnv()
Return (NIL) |
|