Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Usuário desconhecido (luciene.sousa)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (luciene.sousa)

Gravado em

Chave

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

...

Nome TipoDescrição
aRetArrayArray que contém os campos do browser de Pedidos

06. VERSÕES

Protheus 8.11 e Protheus 10Todas as versões.

07. OBSERVAÇÃO

Para que o campo seja apresentado em tela e com valores serão necessários três Pontos de Entrada:

...

Bloco de código
titleCriar campos Campos PED_TRANSP e PED_TRDESC na tabela temporáriaTabela Temporária
#include 'protheus.ch'

User Function DL200TRB()
	Local aRet 	:= PARAMIXB

	aAdd(aRet,{"PED_TRANSP", "C", 6, 0})
	aAdd(aRet,{"PED_TRDESC", "C", 40, 0})

Return aRet

...

Bloco de código
titleGravar os dados Dados dos campos Campos na tabela temporáriaTabela Temporária
#include 'protheus.ch'

User Function OM200GRV()
	Local cTransp := ""
	Local cTrDesc := ""

	TRBPED->(DbGoTop()) 
	Do While TRBPED->(!Eof())
		cTrDesc := ""
		SC5->(DbSetOrder(1))
		If SC5->(DbSeek(FwxFilial("SC5") + TRBPED->PED_PEDIDO))
			cTransp := SC5->C5_TRANSP
			If !Empty(cTransp)
				SA4->(DbSetOrder(1))
				If SA4->(DbSeek(FwxFilial("SA4") + SC5->C5_TRANSP))
					cTrDesc := SA4->A4_NOME
				EndIf
				If RecLock("TRBPED", .F.)
					TRBPED->PED_TRANSP := cTransp
					TRBPED->PED_TRDESC := cTrDesc
					TRBPED->(MsUnlock())
				EndIf
			EndIf
		EndIf
		TRBPED->(DbSkip()) 
	EndDo
Return

...