× Linguagem de Programação ADVPL

Perguntas PE Pedido de compra incluir campo

Mais
13 anos 1 semana atrás #396 por lalberto
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

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 9 meses atrás #21271 por Mjuniorfacic
Boa tarde Luiz,

Peguei o seu exemplo de modelo mais esta dizendo que o registro está bloqueado
Poderia me ajudar

#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)
Public _nVlrFre := 0.00

@ 056,aPosGet[1,1] SAY "Transportadora" OF oNewDialog PIXEL SIZE 060,007
@ 055,aPosGet[1,2] MSGET _cTransp PICTURE PesqPict("SC7","C7_XTRANSP") F3 CpoRetF3('C7_XTRANSP','SA4') OF oNewDialog PIXEL SIZE 040,006

@ 056,aPosGet[1,3] SAY "Vlr Frete" OF oNewDialog PIXEL SIZE 060,006
@ 055,aPosGet[1,4] MSGET _nVlrFre PICTURE PesqPict("SC7","C7_XVLRFRE") OF oNewDialog PIXEL SIZE 060,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_XTRANSP := _cTransp
SC7->C7_XVLRFRE := _nVlrFre
MsUnlock("SC7")
Endif
Anexos:

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 9 meses atrás #21273 por RonaldoLopes
Mauro, salve a area antes de dar o recklock
aArea := GetArea()
e depois restaure a mesma.

RestArea(aArea)

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 9 meses atrás #21275 por RonaldoLopes
Recentemente fiz algo parecido com o que está fazendo e utilizei 3 pontos de entradas.
Dê uma olhada nos fontes acho que pode resolver essa questão.

Arquivo Anexo:

Nome do Arquivo: PE.rar
Tamanho do Arquivo:1 KB
Anexos:
Os seguintes usuário(s) disseram Obrigado: alvess.gustavo

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 9 meses atrás #21283 por Mjuniorfacic
Bom dia Ronaldo,
Quase ficou perfeito, so preciso agora é desenvolver um gatilho que quando escolher o fornecedor jogue a Transp. padrão para o campo criado. sera que é possivel?

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 9 meses atrás #21284 por Mjuniorfacic
#include "rwmake.ch"
#include "protheus.ch"

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Programa ³ MT120TEL ³ Mauro Nunes ³ Data ³ 20/01/14 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descricao ³ Ponto de Entrada p/ incluir campo no cabecalho do pedido ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³Sintaxe ³ Chamada padrao para programas em RDMake. ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß*/

User Function MT120TEL()

Local oNewDialog := PARAMIXB[1]
Local aPosGet := PARAMIXB[2]
Local aObj := PARAMIXB[3]
Local nOpcx := PARAMIXB[4]
Public _cTransp := Space(06)
Public _nVlrFre := 0.00

If nOpcx = 3
_cTransp := Space(06)
_nVlrFre := 0.00
Else
_cTransp := SC7->C7_XTRANSP
_nVlrFre := SC7->C7_XVLRFRE
EndIf

@ 044,492 SAY "Transportadora" OF oNewDialog PIXEL SIZE 060,006
@ 043,564 MSGET _cTransp PICTURE PesqPict("SC7","C7_XTRANSP") F3 CpoRetF3("C7_XTRANSP",'SA4') OF oNewDialog PIXEL SIZE 060,006

@ 055,026 SAY "Vlr Frete" OF oNewDialog PIXEL SIZE 050, 008
@ 055,101 MSGET _nVlrFre PICTURE PesqPict("SC7", "C7_XVLRFRE") OF oNewDialog PIXEL SIZE 060, 006

Return(.T.)

User Function MTA120G3()

Local aInformacoes := PARAMIXB
SC7->C7_XTRANSP := AllTrim(_cTransp)
SC7->C7_XVLRFRE := _nVlrFre

Return

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.142 segundos
Joomla templates by a4joomla