- Fórum
- Protheus/Microsiga/Totvs
- Módulos do Protheus
- Módulo Faturamento
- Ponto Entrada Liberação Pedido
Perguntas Ponto Entrada Liberação Pedido
- vision
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 8
- Obrigados Recebidos: 0
10 anos 11 meses atrás #14142
por vision
Ponto Entrada Liberação Pedido foi criado por vision
Boa Noite Pessoal, Tudo bem?
Sou novo na área de advpl e precisaria de ajuda,
Estou tentando criar um ponto de entrada na liberação do pendido que se determinado produto não foi informado o numero de serie ele não libera informando ao usuário a necessidade de colocar o numero de serie para o item.
O controle sera pelo produto B1_numseri. Cheguei a criar da a mensagem mas só lê o primeiro item e realiza a liberação
Alguém poderia me ajudar a respeito
Atenciosamente
Sou novo na área de advpl e precisaria de ajuda,
Estou tentando criar um ponto de entrada na liberação do pendido que se determinado produto não foi informado o numero de serie ele não libera informando ao usuário a necessidade de colocar o numero de serie para o item.
O controle sera pelo produto B1_numseri. Cheguei a criar da a mensagem mas só lê o primeiro item e realiza a liberação
Alguém poderia me ajudar a respeito
Atenciosamente
Por favor Acessar ou Registrar para participar da conversa.
- ftvernier
-
- Desconectado
- Membro Platina
-
Menos
Mais
- Postagens: 386
- Obrigados Recebidos: 2
10 anos 11 meses atrás - 10 anos 11 meses atrás #14143
por ftvernier
Respondido por ftvernier no tópico Ponto Entrada Liberação Pedido
Ruben primeiramente bem vindo à comunidade Master ADVPL,
Poderia postar o PE para que possamos avaliar?
Abraços.
Poderia postar o PE para que possamos avaliar?
Abraços.
Ultima edição: 10 anos 11 meses atrás por ftvernier.
Por favor Acessar ou Registrar para participar da conversa.
- vision
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 8
- Obrigados Recebidos: 0
10 anos 11 meses atrás #14149
por vision
Respondido por vision no tópico Ponto Entrada Liberação Pedido
Bom Dia,
segue o fonte que estou tentando utilizar
User Function Ma440VLD ()
cIten:=.T.
dbSelectArea("SC6")
dbSetOrder(01)
dbSeek(xFilial("SC6")+SC5->C5_NUM)
While!Eof().and. SC6->C6_NUM==SC5->C5_NUM
dbSelectArea("SB1")
dbSetOrder(1)
If dbSeek(xFilial("SB1")+SC6->C6_Produto)
If SB1->B1_NUMSERI == "1"
If Empty(SC6->C6_NUMSERI)
Alert("Necessario informar Numero de Serie!!")
cIten:=.F.
Endif
Endif
Endif
dbSelectArea("SC6")
dbskip()
Enddo
Return cIten
Agradeço pela força.
segue o fonte que estou tentando utilizar
User Function Ma440VLD ()
cIten:=.T.
dbSelectArea("SC6")
dbSetOrder(01)
dbSeek(xFilial("SC6")+SC5->C5_NUM)
While!Eof().and. SC6->C6_NUM==SC5->C5_NUM
dbSelectArea("SB1")
dbSetOrder(1)
If dbSeek(xFilial("SB1")+SC6->C6_Produto)
If SB1->B1_NUMSERI == "1"
If Empty(SC6->C6_NUMSERI)
Alert("Necessario informar Numero de Serie!!")
cIten:=.F.
Endif
Endif
Endif
dbSelectArea("SC6")
dbskip()
Enddo
Return cIten
Agradeço pela força.
Por favor Acessar ou Registrar para participar da conversa.
- vision
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 8
- Obrigados Recebidos: 0
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 11 meses atrás #14318
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Ponto Entrada Liberação Pedido
Tenta assim: (Nao Testei)
*
*
USER FUNCTION MA440VLD()
*
*
PRIVATE nPOSPRODUTO := aSCAN(aHEADER,{|x| UPPER(ALLTRIM(x[2])) == "C6_PRODUTO"})
PRIVATE nPOSSERIE := aSCAN(aHEADER,{|x| UPPER(ALLTRIM(x[2])) == "C6_NUMSERI"})
Private cIten:=.T.
FOR I := 1 TO LEN(aCOLS)
SB1->(dbSetOrder(1), dbSeek(xFilial("SB1")+aCols[I,nPOSPRODUTO]))
If SB1->B1_NUMSERI == "1"
If Empty(aCols[I,NPOSSERIE])
Alert("Necessario informar Numero de Serie!!")
cIten:=.F.
Endif
ENdif
NEXT I
Return cIten
*
*
USER FUNCTION MA440VLD()
*
*
PRIVATE nPOSPRODUTO := aSCAN(aHEADER,{|x| UPPER(ALLTRIM(x[2])) == "C6_PRODUTO"})
PRIVATE nPOSSERIE := aSCAN(aHEADER,{|x| UPPER(ALLTRIM(x[2])) == "C6_NUMSERI"})
Private cIten:=.T.
FOR I := 1 TO LEN(aCOLS)
SB1->(dbSetOrder(1), dbSeek(xFilial("SB1")+aCols[I,nPOSPRODUTO]))
If SB1->B1_NUMSERI == "1"
If Empty(aCols[I,NPOSSERIE])
Alert("Necessario informar Numero de Serie!!")
cIten:=.F.
Endif
ENdif
NEXT I
Return cIten
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.
- vision
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 8
- Obrigados Recebidos: 0
- Fórum
- Protheus/Microsiga/Totvs
- Módulos do Protheus
- Módulo Faturamento
- Ponto Entrada Liberação Pedido
Tempo para a criação da página:0.132 segundos