Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

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:
NomeTipoDescriçãoObrigatório
cAprReprCaractereTipo: 1=Aprovação / 2=ReprovaçãoSim
aNFSVetor

Vetor com as informações da Nota Fiscal:

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

Sim
aIteVetor

Vetor com os itens da Nota Fiscal:

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)

Sim

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