...
| 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: " + cTextoMlin+=50
oPrn:Say( MLin, MCol, "Campo Customizado: TESTE Campo ITEM Customizado")
CASE cParam == "DESC_LI_REL"
Mlin+=50
msginfooPrn:Say("Licença deMLin, importação"MCol,"Descrição "Campo Customizado: TESTE Campo LI Customizado")
CASE cParam == "IMPRIME_EST_MUN"
msginfo("Estado : "+SA2->A2_ESTADO+".Município: "+SA2->A2_MUN,"Impressão do estado e municípioMLin+=50
oPrn:Say( MLin, MCol, "Campo Customizado: TESTE Campo Customizado")
CASE cParam =="TOTALIZADOR"
nTot_PLI := 1010000.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")
Work->WKPART_N := "123456"
CASE cParam == "Impostos"IMPOSTOS"
Mlin+=50
msginfo(SYD->YD_ICMS_RE+","+SYD->YD_PER_IPI+","+SYD->YD_PER_PIS+" e "+SYD->YD_PER_COF,"oPrn:Say( MLin, MCol,"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_INVOICE)
de entrada 'GRV_WORK_INV' ")
Work->WKPART_N := "123456"
END CASE
Return Nil |
...
| Nome | Tipo | Descrição |
|---|---|---|
| ADICIONA_CAMPO | Caracter | Permite incluir ou alterar campos da tabela Work |
| DESC_ITEM_REL | Caracter | Impressão da descrição do item. |
| DESC_LI_REL | Caracter | Impressão da descrição da L.I. |
| IMPRIME_EST_MUN | Caracter | Permite alteração do Relatório de L.I antes da impressão. |
| TOTALIZADOR | Caracter | Totalizador personalizado. |
| DESCRICAO_ITEM | Caracter | Impressão da Permite modificar a descrição do item. |
| GRAVA_WORK | Caracter | Ocorre antes da gravação da work dos itens do relatório (Alias = Work). |
| IMPOSTOS | Caracter | Impressão dos impostos das alíquotas ICMS, IPI, PIS e COFINS. |
| GRV_WORK_INV | Caracter | Ocorre na gravação da Work das invoices. (Alias = Work). |
...
| Parâmetro | Nome | Tipo | Permite alterar | Descrição |
|---|---|---|---|---|
| ADICIONA_CAMPO | Struct | Array | Sim | A variável Struct é um array que contém os campos para permitir a manipulação do relatórioda tabela temporária Work. |
| TOTALIZADOR | nTot_PLI | Numérico | Sim | Total da P.L.I. |
| TOTALIZADOR | nPesTotPLI | Numérico | Sim | Peso total. |
| DESCRICAO_ITEM | cTexto | Caracter | Sim | Descrição do item. |
| DESC_ITEM_REL | oPrn | Objeto | Sim | Permite inserir informações no relatório gerado na integração. |
| IMPOSTOS | oPrn | Objeto | Sim | Permite inserir informações no relatório gerado na integração. |
| IMPRIME_EST_MUN | oPrn | Objeto | Sim | Permite inserir informações no relatório de Li gerado na integração. |
| DESC_LI_REL | oPrn | Objeto | Sim | Permite inserir informações no relatório de Li gerado na integração. |
...
