Perguntas Campo CK_QTDVEN Val. Usuario
- Oneh
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 11
- Obrigados Recebidos: 0
9 anos 3 meses atrás #28730
por Oneh
Campo CK_QTDVEN Val. Usuario foi criado por Oneh
Bom dia,
Estou com um problema um pouco chato e persistente, criei uma validação de Usuário para meu campo CK_QTDVEN, coloquei ela lá como U_CFAT018(), porém o campo sempre me retorna o erro abaixo:
THREAD ERROR (Administrator, WIN-V8N5OX367I3) 28/07/2015 07:46:19
type mismatch on .AND. on {|| (POSITIVO() .AND. A415QTDVEN()) .AND. (U_CFAT018()) .AND. (A415FLDOK())} line : 1074
Já debuguei o fonte e nem chega a entrar no meu fonte, dá o erro antes, também no meu fonte forcei o retorno como .T. abaixo segue meu fonte para qualquer duvida. Desde já agradeço a ajuda!
Estou com um problema um pouco chato e persistente, criei uma validação de Usuário para meu campo CK_QTDVEN, coloquei ela lá como U_CFAT018(), porém o campo sempre me retorna o erro abaixo:
THREAD ERROR (Administrator, WIN-V8N5OX367I3) 28/07/2015 07:46:19
type mismatch on .AND. on {|| (POSITIVO() .AND. A415QTDVEN()) .AND. (U_CFAT018()) .AND. (A415FLDOK())} line : 1074
Já debuguei o fonte e nem chega a entrar no meu fonte, dá o erro antes, também no meu fonte forcei o retorno como .T. abaixo segue meu fonte para qualquer duvida. Desde já agradeço a ajuda!
Static Function CFAT018()
Local lRet := .T.
Local nEstDisp := 0
Local nQtdReserv := 0
Local nB2Qtd := 0
Local nPedCom := 0
DbSelectArea("SB2")
DbSetOrder(1)
DbSeek(xFilial("SB2")+TMP1->CK_PRODUTO+TMP1->CK_FILVEN)
nEstDisp := (SB2->B2_QATU - SB2->B2_QEMP - SB2->B2_RESERVA - SB2->B2_QPEDVEN) + SB2->B2_SALPEDI
nPedCom := SB2->B2_SALPEDI
nQtdReserv := SB2->B2_RESERVA
nB2Qtd := SB2->B2_QATU
If TMP1->CK_QTDVEN > n0EstDisp
xMagHelpFis("Validação Estoque","Quantidade digitada maior que diponível para venda!"+ Chr(13)+Chr(10)+;
Chr(13)+Chr(10)+"Produto : "+TMP1->CK_DESCRI;
+ Chr(13)+Chr(10)+"Qtd.Disponível ------> "+Transform(nEstDisp,"@E 9,999,999.99");
+ Chr(13)+Chr(10)+"Qtd.Reservada ------> "+Transform(nQtdReserv,"@E 9,999,999.99");
+ Chr(13)+Chr(10)+"Qtd.Pedido Compra ---> "+Transform(nPedCom,"@E 9,999,999.99");
,"Informe uma quantidade válida!")
lRet := .F.
EndIf
Return (lRet)Por favor Acessar ou Registrar para participar da conversa.
- will3698
- Desconectado
- Membro Dourado
-
Menos
Mais
- Postagens: 310
- Obrigados Recebidos: 1
9 anos 3 meses atrás #28778
por will3698
Respondido por will3698 no tópico Campo CK_QTDVEN Val. Usuario
Ola boa noite.
Posta ai como esta o seu X3_VALID e o X3_RELACAO no seu x3, se nao me engano são esses campos mesmo . posta ai pra vermos como esta
att
Posta ai como esta o seu X3_VALID e o X3_RELACAO no seu x3, se nao me engano são esses campos mesmo . posta ai pra vermos como esta
att
Por favor Acessar ou Registrar para participar da conversa.
- Oneh
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 11
- Obrigados Recebidos: 0
- will3698
- Desconectado
- Membro Dourado
-
Menos
Mais
- Postagens: 310
- Obrigados Recebidos: 1
Tempo para a criação da página:0.132 segundos