...
| 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: " + cTexto)
CASE cParam == "DESC_LI_REL"
msginfo("Licença de importação","Descrição LI")
CASE cParam == "IMPRIME_EST_MUN"
msginfo("Estado : "+SA2->A2_ESTADO+".Município: "+SA2->A2_MUN,"Impressão do estado e município")
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(SYD->YD_ICMS_RE+","+SYD->YD_PER_IPI+","+SYD->YD_PER_PIS+" e "+SYD->YD_PER_COF,""Impressão dos impostos ICMS,IPI,PIS E COFINS")
CASE cParam == "GRV_WORK_INV"
msginfo("GravadaEntrou ano workponto das invoices","Invoice número "+SW8->W8_INVOICEde entrada 'GRV_WORK_INV' ")
END CASE
Return Nil |
...
