Exemplos | #INCLUDE "RWMAKE.CH"
#INCLUDE "AVERAGE.CH" User Function ICPADDI0() cExecute := ""
IF TYPE("ParamIXB") == "C"
cExecute := ParamIXB
ENDIF IF cPaisLoc == "BRA"
IF cExecute == "BOTAO"
If Type("oDlgPrv") == "O"
@ 004,055 BUTTON STR0259 SIZE 35,11 ACTION (IF(DIGerou(),Processa({|| DI154PRETXT()},STR0031),)) PIXEL // EXPORTA
Else
@ 1.5,040 BUTTON STR0259 SIZE 37,11 ACTION (IF(DIGerou(),Processa({|| DI154PRETXT()},STR0031),)) PIXEL // EXPORTA
EndIf
nOpca:=0
ENDIF
RETURN .T.
ENDIF
DO CASE CASE cExecute == 'OUTROS_INDICES'//'INDICE_D' Work1FileE:=E_Create(,.F.)
IndRegua("Work1",Work1FileE+OrdBagExt(),"WKFORN+WK_NFE+WK_SE_NFE+WK_OPERACA+WKTEC+WKEX_NCM+WKEX_NBM+WKPO_NUM")
Work1FileF:=E_Create(,.F.)
IndRegua("Work1",Work1FileF+OrdBagExt(),"WK_NFE+WK_SE_NFE+WKFORN")
SET INDEX TO (Work1File+OrdBagExt()),(Work1FileA+OrdBagExt()), (Work1FileB+OrdBagExt()), (Work1FileC+OrdBagExt()), (Work1FileD+OrdBagExt()), (Work1FileE+OrdBagExt()), (Work1FileF+OrdBagExt())
CASE cExecute == "TELA1" IF cPaisLoc # "BRA"
nLin+=12
@ nLin,nCoL5 BUTTON "Impuestos" SIZE nSize,12 ACTION (TelaImpostos(!lGravaWorks))// PIXEL
oMark:bAval:={||TelaImpostos(!lGravaWorks)}
cTotal :="Total General CIF + Outras Desp. $"
ENDIF
CASE cExecute=='TELA_IMPOSTOS'
IF cPaisLoc # "BRA"
oDlgAlt:nHeight:=100
oDlgAlt:cCaption:="Modificacion de Peso"
ENDIF
ENDCASE Return .T. |
|---|