EICAP100 - Eventos de câmbio
Descrição | EICAP100 - Eventos de câmbio | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Observações | Parâmetros para customização da rotina de Cambio de Importação | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Exemplos | EICAP100 #INCLUDE "PROTHEUS.CH" User Function EICAP100() Local nPosMotBx := 0 Local cParam := If(Type("ParamIxb") == "A",ParamIxb[1],If(Type("ParamIxb") == "C",ParamIxb,"")) If cParam == "MOVI_LIMITE_FIN" MsgInfo("Entrou no ponto de entrada 'MOVI_LIMITE_FIN'.") lMoviFin := .F. elseif cParam == "VALID_VINCULACAO" msginfo("Entrou no ponto de entrada 'VALID_VINCULACAO'") lRetvalid := .F. elseif cParam == "MANUT_SWA" msginfo("Entrou no ponto de entrada 'MANUT_SWA'") lSair := .T. elseif cParam == "ELIMINAR_SALDO_MOTBX" msginfo("Entrou no ponto de entrada 'MOTBX'") If ( nPosMotBx := aSCan(aTitBx,{|x|x[1]=="AUTMOTBX"} ) ) > 0 aTitBx[nPosMotBx][2] := "DEB" endif elseif cParam == "EXIBE_MSG_ADTO" lExibeMsAd := .F. elseif cParam == "COND_PAG" lCondPa := .F. elseif cParam == "TABINV" AADD(aPRITabInv,{cInvoice+cFornecedor+cLoja,nValorInvoice,dDataVencimento,'A PRAZO',cNumeroParcela,cNumeroPO,nValorComissao}) elseif cParam == "FINAL_EICCALCPAGTO" AADD(aPRITabInv,{cInvoice+cFornecedor+cLoja,nValorInvoice,dDataVencimento,'A PRAZO',cNumeroParcela,cNumeroPO,nValorComissao}) elseif cParam == "GRAVA SWB" msginfo("Permite a alteração durante a gravação de cada parcela da tabela SWB") elseif cParam == "APOS GRAVAR SWB" msginfo("Permite a alteração da tabela SWB após a gravação de todas as parcelas") elseif cParam == "ANTES_TELA_SWB" M->WB_INVOICE:= "ABCDEF" endif Return nil | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Preview | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Veja também | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Idioma | Português(Brasil) | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Versões | Microsiga_Protheus11 e Microsiga_Protheus12 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Sistemas Operacionais Suportados | Todos | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Compatível com as Bases de Dados | Todas | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Updates | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Parâmetros |
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Retorno | NIL | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Eventos de chamada do Ponto de Entrada | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Variáveis |
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Programa Fonte | EICAP100.PRW |