Histórico da Página
...
Bloco de código | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||
#INCLUDE "PROTHEUS.CH" #include "tbiconn.ch" user function xCmpCP() local aPerg as array local aRet as array local aEstorno as array local aRecTit as array local aRecCmp as array local aRecEst as array local cRecTit as character local cRecCmp as character local cJanela as character local cCodCanc as character local cValor as character local lContabiliza as logical local lAglutina as logical local lDigita as logical local lHelp as logical local nSldComp as numeric local nHdl as numeric local nOperacao as numeric cJanela := "Compensação automática CP" aPerg := {} aRet := {} aEstorno := {} aRecTit := {} aRecCmp := {} aRecEst := {} cValor := cCodCanc := cRecTit := cRecCmp := replicate(" ",50) nSldComp = 0 nHdl := 0 nOperacao := 0 lHelp := .F. PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "FIN" conOut("INICIO DA ROTINA AUTOMATICA") PERGUNTE("AFI340",.F.) lContabiliza := MV_PAR11 == 1 lAglutina := MV_PAR08 == 1 lDigita := MV_PAR09 == 1 aAdd(aPerg,{1, 'RecNo título de partida', cRecTit, "@", nil, nil, nil, 50, .T.}) aAdd(aPerg,{1, 'RecNo título a compensar', cRecCmp, "@", nil, nil, nil, 50, .T.}) aAdd(aPerg,{2, 'Comp/Est?', "1", {"1=Compensação","2=Estorno"}, 100, nil, .T.}) aAdd(aPerg,{1, 'Valor', cValor, "@", nil, nil, nil, 50, .F.}) if paramBox(aPerg, cJanela, aRet) aAdd(aRecTit, val(aRet[1])) if aRet[3] = "1" aAdd(aRecCmp, val(aRet[2])) aEstorno := {} else aAdd(aRecEst, val(aRet[2])) nOperacao := 2 // 2 = Gera movimento de estorno, 3=Exclui os movimentos aEstorno := {aRecEst} endif if !Empty(AllTrim(aRet[4])) nSldComp := val(aRet[4]) else nSaldo := nil endif if FinCmpAut(aRecTit, aRecCmp, {lContabiliza,lAglutina,lDigita}, /*bBlock*/, aEstorno, nSldComp, dDatabase, /*nTaxaPA*/,/*nTaxaNF*/, nHdl, nOperacao, /*aRecSE5*/, /*aNDFDados*/, lHelp) conOut("Processo concluido com exito.") else conOut("Processo nao concluido.") endif endif conOut("FIM DA ROTINA AUTOMATICA") RESET ENVIRONMENT Return nil |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas