- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Validação de campo SC1
×
Linguagem de Programação ADVPL
Perguntas Validação de campo SC1
- Morgado
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 42
- Obrigados Recebidos: 0
10 anos 2 meses atrás #25092
por Morgado
Validação de campo SC1 foi criado por Morgado
Pessoal, bom dia.
Estou tentando criar uma validação no lançamento de solicitações de compras. Quero validar o campo C1_CONTA de acordo com o que for informado no C1_CC.
O problema é que não estou conseguindo ler o conteúdo do campo C1_CC. Tentei com M->C1_CC, mas diz que a variável não existe.
As variáveis de memória não estão disponíveis em todas as telas?
Obrigado,
Estou tentando criar uma validação no lançamento de solicitações de compras. Quero validar o campo C1_CONTA de acordo com o que for informado no C1_CC.
O problema é que não estou conseguindo ler o conteúdo do campo C1_CC. Tentei com M->C1_CC, mas diz que a variável não existe.
As variáveis de memória não estão disponíveis em todas as telas?
Obrigado,
Por favor Acessar ou Registrar para participar da conversa.
- admin
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 216
- Obrigados Recebidos: 0
10 anos 2 meses atrás #25096
por admin
Respondido por admin no tópico Validação de campo SC1
Segue um exemplo vc precisa usar acols:
#include "rwmake.ch"
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³VC1_DESCRI() ºAutor ³xxxxxx º Data ³ 05/18/12 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Programa criado para validar a descrição do produto na º±±
±±º ³ inclusão de Solicitações de Compra º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function VC1_DESCRI()
Local _Retorno := .T.
Local nPC1_PRODUTO := aScan( aHeader, { |aVet| Alltrim(aVet[2]) == 'C1_PRODUTO' } )
Local cCodPro := aCols[n,nPC1_PRODUTO]
Local aAreaGER := GetArea()
Local aAreaSB1 := SB1->( GetArea() )
SB1->( dbSetOrder(1) )
If SB1->( dbSeek( xFilial() + cCodPro ) )
cB1_DESC := Rtrim(SB1->B1_DESC)
nTamB1 := Len(cB1_DESC)
If Subs(M->C1_DESCRI,1,nTamB1) <> cB1_DESC
apMsgStop('Não é permitido alterar o início da descrição do Produto.')
_Retorno := .F.
EndIf
EndIf
RestArea(aAreaSB1)
RestArea(aAreaGER)
Return _Retorno
#include "rwmake.ch"
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³VC1_DESCRI() ºAutor ³xxxxxx º Data ³ 05/18/12 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Programa criado para validar a descrição do produto na º±±
±±º ³ inclusão de Solicitações de Compra º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function VC1_DESCRI()
Local _Retorno := .T.
Local nPC1_PRODUTO := aScan( aHeader, { |aVet| Alltrim(aVet[2]) == 'C1_PRODUTO' } )
Local cCodPro := aCols[n,nPC1_PRODUTO]
Local aAreaGER := GetArea()
Local aAreaSB1 := SB1->( GetArea() )
SB1->( dbSetOrder(1) )
If SB1->( dbSeek( xFilial() + cCodPro ) )
cB1_DESC := Rtrim(SB1->B1_DESC)
nTamB1 := Len(cB1_DESC)
If Subs(M->C1_DESCRI,1,nTamB1) <> cB1_DESC
apMsgStop('Não é permitido alterar o início da descrição do Produto.')
_Retorno := .F.
EndIf
EndIf
RestArea(aAreaSB1)
RestArea(aAreaGER)
Return _Retorno
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Validação de campo SC1
Tempo para a criação da página:0.079 segundos