- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- PE Pedido de compra incluir campo
×
Linguagem de Programação ADVPL
Perguntas PE Pedido de compra incluir campo
- lalberto
- Autor do Tópico
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
13 anos 1 semana atrás #396
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
PE Pedido de compra incluir campo foi criado 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 --> <israel@moinhoarapongas.com.br> 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 --> <israel@moinhoarapongas.com.br>
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 "cond. de pagto", nao?
Israel Neves.
2010/11/22 <israel@moinhoarapongas.com.br>
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
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 --> <israel@moinhoarapongas.com.br> 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 --> <israel@moinhoarapongas.com.br>
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 "cond. de pagto", nao?
Israel Neves.
2010/11/22 <israel@moinhoarapongas.com.br>
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.
- Mjuniorfacic
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
10 anos 9 meses atrás #21271
por Mjuniorfacic
Respondido por Mjuniorfacic no tópico PE Pedido de compra incluir campo
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
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
Por favor Acessar ou Registrar para participar da conversa.
- RonaldoLopes
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 478
- Obrigados Recebidos: 2
10 anos 9 meses atrás #21273
por RonaldoLopes
Respondido por RonaldoLopes no tópico PE Pedido de compra incluir campo
Mauro, salve a area antes de dar o recklock
aArea := GetArea()
e depois restaure a mesma.
RestArea(aArea)
aArea := GetArea()
e depois restaure a mesma.
RestArea(aArea)
Por favor Acessar ou Registrar para participar da conversa.
- RonaldoLopes
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 478
- Obrigados Recebidos: 2
10 anos 9 meses atrás #21275
por RonaldoLopes
Respondido por RonaldoLopes no tópico PE Pedido de compra incluir campo
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.
Dê uma olhada nos fontes acho que pode resolver essa questão.
Os seguintes usuário(s) disseram Obrigado: alvess.gustavo
Por favor Acessar ou Registrar para participar da conversa.
- Mjuniorfacic
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
10 anos 9 meses atrás #21283
por Mjuniorfacic
Respondido por Mjuniorfacic no tópico PE Pedido de compra incluir campo
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?
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.
- Mjuniorfacic
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
10 anos 9 meses atrás #21284
por Mjuniorfacic
Respondido por Mjuniorfacic no tópico PE Pedido de compra incluir campo
#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
#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.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- PE Pedido de compra incluir campo
Tempo para a criação da página:0.142 segundos