Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Carlos Augusto Pereira

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Carlos Augusto Pereira

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Este Ponto de Entrada permite incluir campos na tela Sequência de Entrega, da rotina de Montagem de Carga (OMSA200)manipular a tabela temporária de pedidos.

03. LOCALIZAÇÃO

Localizado antes da abertura da tela Sequência de Entrega, acessível pela rotina de abrir a rotina de Montagem de Carga , opção Seq. Ent.(OMSA200).

04. PARÂMETROS

Objeto de dados

Nome

Tipo

Descrição

aArrayCargaTRBPED

ArrayTabela TemporáriaContêm informações dos Pedidos selecionados para geração da Carga
aHeadersArrayContém o cabeçalho dos campos a serem apresentados no browse de Pedidos
bLineBloco de Código

Armazena a regra de preenchimento dos campos do browse de Pedidos

oLiberadoObjeto ImagemObjeto imagem usado quando status da carga igual a 1.
oCalendObjeto ImagemObjeto imagem usado quando status da carga igual a 2.
oHorarioObjeto Imagem

Objeto imagem usado quando status da carga igual a 3.

oVeiculoObjeto Imagem

Objeto imagem usado quando status da carga igual a 4.

oPedMan

Objeto contendo os dados da tela de sequenciamento dos pedidos

05. RETORNO

NomeTipoDescrição
aRetCargaArray

Array de três posições, contendo:

  • aRetCarga[1] - aArrayCarga
  • aRetCarga[2] - aHeaders
  • aRetCarga[3] - bLine

Estes três elementos devem estar no mesmo formato em que foram recebidos por parâmetro, contendo inclusive os campos adicionados pelo Ponto de Entrada e que serão apresentados na tela Sequência de Entrega.

...

Protheus 12.1.17 ou superiores

07. OBSERVAÇÃO

Não se aplica.

08. EXEMPLO

...


Bloco de código
#INCLUDE "PROTHEUS.CH"

...



User Function

...

 OM200GR2()

	TRBPED->(DbSetOrder(1))

...

 
	If TRBPED->(DbSeek(

...

Next nX

AAdd(aHeaders, RetTitle("A1_INSCR"))
AAdd(aHeaders, RetTitle("A1_CEP"))
bLine:={||{Iif(oPedMan:aArray[oPedMan:nAT,18]==1,oLiberado,; Iif(oPedMan:aArray[oPedMan:nAT,18]==2,oVeiculo,;
                Iif(oPedMan:aArray[oPedMan:nAT,18]==3,oHorario,;
                Iif(oPedMan:aArray[oPedMan:nAT,18]==4,oCalend,oLiberado)))),;
                oDown, oUp,;
                oPedMan:aArray[oPedMan:nAT,1 ],;
                oPedMan:aArray[oPedMan:nAT,2 ],;
                oPedMan:aArray[oPedMan:nAT,5 ],;
                oPedMan:aArray[oPedMan:nAT,19],;
                oPedMan:aArray[oPedMan:nAT,16],;
                oPedMan:aArray[oPedMan:nAT,17],;
                oPedMan:aArray[oPedMan:nAT,20],;
                oPedMan:aArray[oPedMan:nAT,6 ],;
                oPedMan:aArray[oPedMan:nAT,7 ],;
                oPedMan:aArray[oPedMan:nAT,8 ],;
                oPedMan:aArray[oPedMan:nAT,9 ],;
                oPedMan:aArray[oPedMan:nAT,10],;
                oPedMan:aArray[oPedMan:nAT,11],;
                oPedMan:aArray[oPedMan:nAT,30],; //Referência para exibição da Inscrição Estadual. Deve se iniciar a partir do 30, pois o array padrão possui 29 posições.
                oPedMan:aArray[oPedMan:nAT,31]}} //Referência para exibição do CEP.

AAdd(aRet,aArray)
AAdd(aRet, aHeaders)
AAdd(aRet, bLine)
RestArea(aAreaPE)

Return(aRet)

...

FwxFilial('SC5')+"000026"))
		RecLock("TRBPED",.F.)
		TRBPED->PED_ENDCLI := "Endereço de teste2"
		TRBPED->(MsUnlock())
	EndIf

Return Nil




Templatedocumentos


HTML