Linha Microsiga Protheus

Árvore de páginas

M711SC7 - Manipula Array "aItem"

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):


Nome
Tipo
Descrição
Default
Obrigatório Referência

PARAMIXB1
Array of Record
Array com os Itens de Autorização de Entrega






Idiomas:

Espanhol, Inglês

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Manipula Array "aItem"

Localização:

Na função A711GravC7() - Rotina de Gravação das AE's (Autorização de Entrega).

Em que ponto:

Ponto de entrada utilizado para manipular o Array "aItem" antes da geração da Autorização de Entrega.

Programa Fonte:
MATA710.PRX

Sintaxe:

M711SC7 - Manipula Array "aItem" ( [ PARAMIXB1 ] ) --> aRetPE

Retorno:

aRetPE

    (array_of_record)
  • Contendo o array do item de Autorização de Entrega Manipulado.
Variáveis:

Nome
Tipo
Escopo
Pode Alterar
Descrição



Array of Record
Global
Não


Observações:

Estrutura do array "aItem"

 aItem := {{"C7_ITEM",StrZero(1,Len(SC7->C7_ITEM)),NIL},;
                  {"C7_PRODUTO",SC3->C3_PRODUTO,NIL},;
                  {"C7_QUANT",nQuant,NIL},;
                  {"C7_QTDSOL",nQuant,NIL},;
                  {"C7_UM",SB1->B1_UM,NIL},;
                  {"C7_QTSEGUM",ConvUm(SB1->B1_COD,nQuant,0,2),NIL},;
                 {"C7_PRECO",SC3->C3_PRECO,NIL},;
                 {"C7_TOTAL",nQuant*SC3->C3_PRECO,NIL},;
                 {"C7_NUMSC",SC3->C3_NUM,NIL},;
                {"C7_ITEMSC",SC3->C3_ITEM,NIL},;
                {"C7_IPI",SC3->C3_IPI,NIL},;
                {"C7_REAJUST",SC3->C3_REAJUST,NIL},;
                {"C7_FRETE",SC3->C3_FRETE,NIL},;
                {"C7_DATPRF",aPeriodos[nPeriodo],NIL},;
                {"C7_LOCAL",SC3->C3_LOCAL,NIL},;
                {"C7_MSG",SC3->C3_MSG,NIL},;
                {"C7_TPFRETE",SC3->C3_TPFRETE,NIL},;
                {"C7_OBS",SC3->C3_OBS,NIL},;
                {"C7_CONTA",SB1->B1_CONTA,NIL},;
                {"C7_CC",SB1->B1_CC,NIL},;
               {"C7_DESCRI",SB1->B1_DESC,NIL},;
               {"C7_SEQMRP",c711NumMRP,Nil},;
                {"C7_TPOP",If(aPergs711[10] == 1,"F","P"),NIL}}