...
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
User Function EICOR150()
Local cParam := If(Type("ParamIxb") = "A",ParamIxb[1],If(Type("ParamIxb") = "C",ParamIxb,""))
DO case
CASE cParam == "ADICIONA_CAMPO"
aAdd(Struct,{"NOVO_CAMPO","C",10,0})
CASE cParam == "DESC_ITEM_REL"
conout("Descrição do item: " + cTextooPrn:Say( MLin, MCol, "Campo Customizado: TESTE Campo Customizado")
CASE cParam == "DESC_LI_REL"
msginfo("Licença de importação","Descrição LI")
CASE cParam == "IMPRIME_EST_MUN"
msginfo("Impressão do estado e municípioMLin+=50
oPrn:Say( MLin, MCol, "Campo Customizado: TESTE Campo Customizado")
CASE CASE cParam =="TOTALIZADOR"
nTot_PLI := 10.000,00
nPesTotPLI := 100
CASE cParam == "DESCRICAO_ITEM"
cTexto +="Adiciona na descrição do item"
CASE cParam == GRAVA_WORK
msginfo("Tabela work gravada","Gravação da work")
CASE cParam == "Impostos"
msginfo("Impressão dos impostos ICMS,IPI,PIS E COFINS")
CASE cParam == "GRV_WORK_INV"
msginfo("Entrou no ponto de entrada 'GRV_WORK_INV' ")
END CASE
Return Nil |
...
