Ponto de Entrada
Descrição: | Ponto de entrada localizado na rotina Conf. Código Barra (OFIOM390). É executado após a aprovação ou a reprovação da conferência. | ||||||||||||||||
Localização: | Atualizações \ Mov Peças \ Conf. Codigo Barra (OFIOM390) | ||||||||||||||||
Eventos: | If ExistBlock("OM390DOK") ExecBlock("OM390DOK",.f.,.f.,{cAprRepr,aNFs,aIte}) // PE apos Aprovação / Reprovação // // cAprRepr - 1=Aprovação / 2=Reprovação // // aNFS - NF Selecionada // aNFs[1,05] = Arquivo Origem ( VI0 - Importacao / SF1 - Pre Nota Entradas ) // aNFs[1,07] = Nro NF // aNFs[1,08] = Serie NF // aNFs[1,09] = Codigo Fornecedor // aNFs[1,10] = Loja Fornecedor // // aIte - Itens da NF // aIte[n,02] = Grupo (B1_GRUPO) // aIte[n,03] = CodIte (B1_CODITE) // aIte[n,04] = Descrição (B1_DESC) // aIte[n,05] = Qtde.Conferida // aIte[n,06] = Qtde.Original // aIte[n,07] = Codigo de Barras (B1_CODBAR) // aIte[n,08] = Codigo (B1_COD) // EndIf | ||||||||||||||||
Programa Fonte: | OFIOM390.PRW | ||||||||||||||||
Função: | OFIOM390() | ||||||||||||||||
| Parâmetros: |
|
Exemplo:
//////////////////////////////////////////////////////////////////////////////////////////////////
// //
// OM390DOK - Ponto de Entrada na Conferencia de Itens de Entrada. É executado apos aprovação //
// ou reprovação da conferencia. //
// //
// cParTip - 1=Aprovação / 2=Reprovação //
// //
// aParNFS - NF Selecionada //
// aParNFS[1,05] = Arquivo Origem ( VI0 - Importacao / SF1 - Pre-Nota Entradas ) //
// aParNFS[1,07] = Nro NF //
// aParNFS[1,08] = Serie NF //
// aParNFS[1,09] = Codigo Fornecedor //
// aParNFS[1,10] = Loja Fornecedor //
// //
// aParIte - Itens da NF //
// aParIte[n,02] = Grupo (B1_GRUPO) //
// aParIte[n,03] = CodIte (B1_CODITE) //
// aParIte[n,04] = Descrição (B1_DESC) //
// aParIte[n,05] = Qtde.Conferida //
// aParIte[n,06] = Qtde.Original //
// aParIte[n,07] = Codigo de Barras (B1_CODBAR) //
// aParIte[n,08] = Codigo (B1_COD) //
// //
//////////////////////////////////////////////////////////////////////////////////////////////////
User Function OM390DOK()
Local cParTip := ParamIxb[1] // Tipo: 1 = Aprovação / 2 = Reprovação
Local aParNFS := ParamIxb[2] // NF Selecionada
Local aParIte := ParamIxb[3] // Itens da NF
MsgInfo("Ponto de entrada OM390DOK executado com sucesso!"+" "+cRVar )
Return
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas