Histórico da Página
...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
INCLUDE "Protheus.ch"
User Function TST100()
Local nOpc := 0
Local aFINA100 := {}
Private lMsErroAuto := .F.
nOpc := 0
nOpc := Aviso("TESTE EXECAUTO DO FINA100", "Escolha a opção do menu da rotina FINA100 a ser executada via EXECAUTO",{"PAGAR","RECEBER","EXCLUIR","CANCELAR","TRANSF.","EST. TRANSF.","Fechar"})
If nOpc == 1
aFINA100 := { {"E5_DATA" ,dDataBase ,Nil},;
{"E5_MOEDA" ,"M1" ,Nil},;
{"E5_VALOR" ,500 ,Nil},;
{"E5_NATUREZ" ,"001" ,Nil},;
{"E5_BANCO" ,"001" ,Nil},;
{"E5_AGENCIA" ,"001" ,Nil},;
{"E5_CONTA" ,"001" ,Nil},;
{"E5_BENEF" ,"TESTE AUTO - BENEF" ,Nil},;
{"E5_HISTOR" ,"TESTE AUTO - AUTO" ,Nil}}
MSExecAuto({|x,y,z| FinA100(x,y,z)},0,aFINA100,3)
If lMsErroAuto
MostraErro()
Else
MsgAlert("Movto. Bancario Pagar incluido com sucesso !!!")
EndIf
ElseIf nOpc == 2
aFINA100 := { {"E5_DATA" ,dDataBase ,Nil},;
{"E5_MOEDA" ,"M1" ,Nil},;
{"E5_VALOR" ,1500 ,Nil},;
{"E5_NATUREZ" ,"001" ,Nil},;
{"E5_BANCO" ,"001" ,Nil},;
{"E5_AGENCIA" ,"001" ,Nil},;
{"E5_CONTA" ,"001" ,Nil},;
{"E5_HISTOR" ,"TESTE AUTO - AUTO" ,Nil}}
MSExecAuto({|x,y,z| FinA100(x,y,z)},0,aFINA100,4)
If lMsErroAuto
MostraErro()
Else
MsgAlert("Movto. Bancario Receber incluido com sucesso !!!")
EndIf
ElseIf nOpc == 3
dbSelectArea("SE5")
SE5->(dbSetOrder(1))
SE5->(dbSeek(xFilial("SE5")+DToS(dDataBase) ))
aFINA100 := { {"E5_DATA" ,SE5->E5_DATA ,Nil},;
{"E5_MOEDA" ,SE5->E5_MOEDA ,Nil},;
{"E5_VALOR" ,SE5->E5_VALOR ,Nil},;
{"E5_NATUREZ" ,SE5->E5_NATUREZ ,Nil},;
{"E5_BANCO" ,SE5->E5_BANCO ,Nil},;
{"E5_AGENCIA" ,SE5->E5_AGENCIA ,Nil},;
{"E5_CONTA" ,SE5->E5_CONTA ,Nil},;
{"E5_HISTOR" ,SE5->E5_HISTOR ,Nil},;
{"E5_TIPOLAN" ,SE5->E5_TIPOLAN ,Nil} }
MSExecAuto({|x,y,z| FinA100(x,y,z)},0,aFINA100,5)
If lMsErroAuto
MostraErro()
Else
MsgAlert("Exclusão realizada com sucesso !!!")
EndIf
ElseIf nOpc == 4
dbSelectArea("SE5")
SE5->(dbSetOrder(1))
SE5->(dbSeek(xFilial("SE5")+DToS(dDataBase) ))
dbSkip() //colocado apenas para esta sequencia de testes
aFINA100 := { {"E5_DATA" ,SE5->E5_DATA ,Nil},;
{"E5_MOEDA" ,SE5->E5_MOEDA ,Nil},;
{"E5_VALOR" ,SE5->E5_VALOR ,Nil},;
{"E5_NATUREZ" ,SE5->E5_NATUREZ ,Nil},;
{"E5_BANCO" ,SE5->E5_BANCO ,Nil},;
{"E5_AGENCIA" ,SE5->E5_AGENCIA ,Nil},;
{"E5_CONTA" ,SE5->E5_CONTA ,Nil},;
{"E5_HISTOR" ,SE5->E5_HISTOR ,Nil},;
{"E5_TIPOLAN" ,SE5->E5_TIPOLAN ,Nil} }
MSExecAuto({|x,y,z| FinA100(x,y,z)},0,aFINA100,6)
If lMsErroAuto
MostraErro()
Else
MsgAlert("Cancelamento realizada com sucesso !!!")
EndIf
ElseIf nOpc == 5
aFINA100 := { {"CBCOORIG" ,"001" ,Nil},;
{"CAGENORIG" ,"001" ,Nil},;
{"CCTAORIG" ,"001" ,Nil},;
{"CNATURORI" ,"001" ,Nil},;
{"CBCODEST" ,"002" ,Nil},;
{"CAGENDEST" ,"002" ,Nil},;
{"CCTADEST" ,"002" ,Nil},;
{"CNATURDES" ,"002" ,Nil},;
{"CTIPOTRAN" ,"CH" ,Nil},;
{"CDOCTRAN" ,"123456" ,Nil},;
{"NVALORTRAN" ,2500 ,Nil},;
{"CHIST100" ,"TESTE TRF VIA EXECAUTO" ,Nil},;
{"CBENEF100" ,"TESTE TRF VIA EXECAUTO" ,Nil} }
MSExecAuto({|x,y,z| FinA100(x,y,z)},0,aFINA100,7)
If lMsErroAuto
MostraErro()
Else
MsgAlert("Transferência executada com sucesso !!!")
EndIf
ElseIf nOpc == 6
aFINA100 := { {"AUTNRODOC" ,"123456" ,Nil},;
{"AUTDTMOV" ,dDataBase ,Nil},;
{"AUTBANCO" ,"001" ,Nil},;
{"AUTAGENCIA" ,"001" ,Nil},;
{"AUTCONTA" ,"001" ,Nil} }
MSExecAuto({|x,y,z| FinA100(x,y,z)},0,aFINA100,8)
If lMsErroAuto
MostraErro()
Else
MsgAlert("Transferência cancelada com sucesso !!!")
EndIf
EndIf
Return |
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#include "rwmake.ch"
#include 'tbiconn.ch'
User Function Auto450()
Local aAutoCab := {}
Local aArea := GetArea()
Local cTabSe1 := "TMPSE1A"
Local cTabSe2 := "TMPSE2A"
Local aSE1450 := {}
Local aSE2450 := {}
Local aFilCmp := {}
Private lMsHelpAuto := .F.
Private lMsErroAuto := .F.
BeginSql Alias cTabSe1
SELECT R_E_C_N_O_ as RECNO
FROM %Table:SE1% SE1
WHERE SE1.E1_FILIAL = 'D MG 01 '
AND SE1.E1_PREFIXO = 'CPT'
AND SE1.E1_NUM = 'VT001'
AND SE1.E1_TIPO = 'NF'
AND SE1.E1_CLIENTE = 'FIN001'
AND SE1.E1_LOJA = '01'
AND SE1.%NotDel%
EndSql
While (cTabSe1)->(!EOF())
SE1->(DbGoto((cTabSe1)->RECNO))
AAdd(aSE1450, {SE1->E1_FILIAL+SE1->E1_PREFIXO+SE1->E1_NUM+SE1->E1_PARCELA+SE1->E1_TIPO})
If ascan(aFilCmp,SE1->E1_FILIAL) == 0
Aadd(aFilCmp, SE1->E1_FILIAL)
EndIf
(cTabSe1)->(DbSkip())
Enddo
(cTabSe1)->(DbCloseArea())
BeginSql Alias cTabSe2
SELECT R_E_C_N_O_ as RECNO
FROM %Table:SE2% SE2
WHERE SE2.E2_FILIAL = 'D MG 02 '
AND SE2.E2_PREFIXO = 'CPT'
AND SE2.E2_NUM = 'VT001'
AND SE2.E2_TIPO = 'NF'
AND SE2.E2_FORNECE = 'FIN001'
AND SE2.E2_LOJA = '01'
AND SE2.%NotDel%
EndSql
While (cTabSe2)->(!EOF())
SE2->(DbGoto((cTabSe2)->RECNO))
AAdd(aSE2450, {SE2->E2_FILIAL+SE2->E2_PREFIXO+SE2->E2_NUM+SE2->E2_PARCELA+SE2->E2_TIPO+SE2->E2_FORNECE+SE2->E2_LOJA})
If ascan(aFilCmp,SE2->E2_FILIAL) == 0
Aadd(aFilCmp, SE2->E2_FILIAL)
EndIf
(cTabSe2)->(DbSkip())
Enddo
(cTabSe2)->(DbCloseArea())
aAutoCab :={ {"AUTDVENINI450", cTod('27/08/19') , nil},;
{"AUTDVENFIM450", cTod('27/08/19') , nil},;
{"AUTNLIM450" ,8000, nil},;
{"AUTCCLI450" , "FIN001" , nil},;
{"AUTCLJCLI" , "01" , nil},;
{"AUTCFOR450" , "FIN001" , nil},;
{"AUTCLJFOR" , "01" , nil},;
{"AUTCMOEDA450" , "01" , nil},;
{"AUTNDEBCRED" , 1 , nil},;
{"AUTLTITFUTURO", .F. , nil},;
{"AUTARECCHAVE" ,aSE1450, nil},;
{"AUTAPAGCHAVE" , aSE2450 , nil},;
{"AUTAFILCOMP" , aFilCmp , nil}}
MSExecAuto({|x,y,z| Fina450(x,y,z)}, nil , aAutoCab , 3 )
If !lMsErroAuto
ConOut("Incluido com sucesso! ")
confirmsx8()
Else
ConOut("Erro na inclusao!")
rollbacksx8()
MostraErro()
EndIf
RestArea(aArea)
Return |
| Card documentos | ||||
|---|---|---|---|---|
|
04. DEMAIS INFORMAÇÕES
Não há.
05. ASSUNTOS RELACIONADOS
04. DEMAIS INFORMAÇÕES
Não há.
05. ASSUNTOS RELACIONADOS
Documento de referencia FINA100Não há
| Templatedocumentos |
|---|
| HTML |
|---|
<style>
div.theme-default .ia-splitter #main {
margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
display: none;
}
#main {
padding-left: 10px;
padding-right: 10px;
overflow-x: hidden;
}
.aui-header-primary .aui-nav, .aui-page-panel {
margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
margin-left: 0px !important;
}
</style>
|
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas