Exemplos | User Function EICTP252()
Local cParam := upper(If(Type("ParamIxb") = "A",ParamIxb[1],If(Type("ParamIxb") = "C",ParamIxb,"")))
Local _xRet := Nil Do Case
Case cParam == "ESTR_WORK"
AdicCampo()
Case cParam == "APOS_GRAVA_WORKTP"
GrvWork()
Case cParam == "BUTTON"
/*_xxx := ""
@5,(oDlg:nClientWidth-4)/2-150 BUTTON "Impr.DM" Size 44,11 FONT oDlg:oFont;
ACTION Eval(b252Print) OF oPanel PIXEL
*/
Case cParam == "IMP_CAB"
Rel_Cab()
Case cParam == "APOS_IMP_VAL"
Rel_Det()
EndCase Return Static Function AdicCampo()
//----------------------//
// Array de retorno do PE ==> aStruct
//
aadd(aStruct,{"DM_VRPAGTO" ,"N", 17 , 8 })
aadd(aStruct,{"DM_CDMOEDA" ,"C", AVSX3("YF_MOEDA",3) , 0 })
aadd(aStruct,{"DM_DTMOEDA" ,"D", 8 , 0 })
aadd(aStruct,{"DM_VRMOEDA" ,"N", 17 , 8 })
aadd(TB_Campos,{"DM_VRPAGTO",,"Valor em Real",'@E 999,999,999,999,999.99'})
Return Static Function GrvWork()
//----------------------//
// VALORES ==> Código do programa EICTP252.PRW - Montagem do Pré-Calculo
//
// Alias do PE WorkTP->
//
Local _cMoeda := BuscaDolar()
Local _dDataMoeda := dDataBase
SYF->(DbSetOrder(3))
If SYF->(DbSeek(xFilial("SYF")+"220"))
IF SYF->YF_MOEDA != "US$"
_cMoeda := SYF->YF_MOEDA
EndIf
EndIf
WorkTP->DM_CDMOEDA := _cMoeda
WorkTP->DM_DTMOEDA := _dDataMoeda
WorkTP->DM_VRMOEDA := BuscaTaxa(_cMoeda,_dDataMoeda,.T.,.F.,.T.)
WorkTP->DM_VRPAGTO := WorkTP->WKVL_PAGTO * WorkTP->DM_VRMOEDA
Return Static Function Rel_Cab()
//----------------------//
// Retorno para que o programa não imprima o padrão ==> lDesvioRDM := .T.
// Variável private do programa
// MLin
// MOrdem - Parâmetro de immpressão - mv_par_03 // Até a Coluna "Valor em US$" tem que ser mantidas, pois o PE só altera as ultimas informações
lDesvioRDM := .T. IF MOrdem == 1
@++MLin,001 PSAY "No. Processo Data Despesa Valor em US$ Valor em R$ "
@++MLin,001 PSAY "--------------- -------- ----------------------------------- ----------------------- ----------------------- "
ELSEIF MOrdem == 2
@++MLin,001 PSAY "No. P.O. Data Despesa Valor em US$ Valor em R$ "
@++MLin,001 PSAY "--------------- -------- ----------------------------------- ----------------------- ----------------------- "
ELSEIF MOrdem == 3
@++MLin,001 PSAY "Despesa Data No P.O. Valor em US$ Valor em R$ "
@++MLin,001 PSAY "----------------------------------- -------- --------------- ----------------------- ----------------------- "
ELSEIF MOrdem == 4
@++MLin,001 PSAY "Data Despesa No P.O. Valor em US$ Valor em R$ "
@++MLin,001 PSAY "-------- ----------------------------------- --------------- ----------------------- ----------------------- "
ENDIF
Return
Static Function Rel_Det()
//----------------------//
// cPictGeral é pirvate no programa
//MFR 04/04/2019 OSSME-2690
lDesvioDet := .T.
@MLin,COL_VALOR_REAL PSAY TRAN(DM_VRPAGTO,cPictGeral)
Return
|
|---|
