Perguntas PE Pedido de compra incluir campo

Israel,

Segue os pontos de entrada M120TEL e o MT120GRV.
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Programa ³ MT120TEL ³ Alexandre R. Bento ³ Data ³ 04/07/07 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descricao ³ Ponto de Entrada p/ incluir campo no cabecalho do pedido ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³Sintaxe ³ Chamada padrao para programas em RDMake. ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß*/
#include "rwmake.ch"
#include "protheus.ch"
User Function MT120TEL()
Local oNewDialog := PARAMIXB[1]
Local aPosGet := PARAMIXB[2]
Local aObj := PARAMIXB[3]
Local nOpcx := PARAMIXB[4]
Public _cTransp := Space(06)
@ 044,aPosGet[1,6] SAY "Transportadora" OF oNewDialog PIXEL SIZE 060,006
@ 043,aPosGet[1,7] MSGET _cTransp PICTURE PesqPict("SC7","C7_TRANSP") F3 CpoRetF3('C7_TRANSP','SA4') OF oNewDialog PIXEL SIZE 040,006
Return(.T.)

//Utilizar este ponto para gravar o campo adicionado no cabeçalho do pedido
User Function MT120GRV
If !Acols[n][len(aHeader)+1] //nao pega quando a linha esta deletada
//Grava campos criados no cabeçalho do pedido
RecLock("SC7",.F.)
SC7->C7_TRANSP := _cTransp
MsUnlock("SC7")
Endif

Obs: Se voce utiliza autorização de entrega, favor fazer mais validações.

Abs,

Alexandre Bento.

--- Em seg, 22/11/10, <!-- e --><a href="Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.">Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.</a><!-- e --> &lt;israel@moinhoarapongas.com.br&gt; escreveu:

De: <!-- e --><a href="Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.">Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.</a><!-- e --> &lt;israel@moinhoarapongas.com.br&gt;
Assunto: Re: [siga-br] [Advpl] PE Pedido de compra incluir campo
Para: <!-- e --><a href="Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.">Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.</a><!-- e -->
Data: Segunda-feira, 22 de Novembro de 2010, 12:42

Não condição de pagamento são as datas dos vencimentos formas de pagamento são: boleto, cheque, dinheiroetc...

Grato
Israel


From: Israel Neves
Sent: Monday, November 22, 2010 10:50 AM
To: <!-- e --><a href="Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.">Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.</a><!-- e -->
Subject: Re: [siga-br] [Advpl] PE Pedido de compra incluir campo


Xará,
Isto já existe por padrão, se chama &quot;cond. de pagto&quot;, nao?

Israel Neves.

2010/11/22 &lt;israel@moinhoarapongas.com.br&gt;

Oi Pessoal bom dia !!!

Estou precisando incluir 1 campo no cabeçalho do pedido de compra (MATA121), o campo Forma de Pagamento.

Alguém tem algum exemplo se é possível incluir direto na tela, ou Pe de algum botão p o mesmo?

Grato
Israel