|
Bem Vindo, Visitante
|
Todos os Fórums
Compras
|
Imprimir
Enviar Para um Amigo Precisa estar Logado
|
|
|
Assunto: |
Ponto de Entrada Pedido de Vendas |
|
Versão: |
11 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
Mensagem do
MAHO
em 07/03/2014, 16:51 h
Local: SP Registro: 30/01/2014 Postagens: 3 |
Boa tarde
Preciso que todos os meus pedidos de venda do tipo 04- Bonificação, passem para analise de crédito, todos, sem exceção.
Gostaria de saber se existe algum campo que é preenchido para envio para analise de crédito, ou algo do tipo, ou como envio um pedido para analise de credito.
Quem puder ajudar agradeço muito
Segue meu código onde tentei realizar isto, mas não deu certo
#INCLUDE "PROTHEUS.CH"
User Function MTA410I()
Local aArea := {}
dbselectarea("SC5")
_aArea := getArea()
//-- VERIFICA SE O SC6 está setado para o No do Pedido que esta sendo liberado //--(C9_PEDIDO = C6_NUM)
//Alert(SC6->C6_PEDIDO)
//--Se Estiver no Pedido q está sendo liberado vc faz o While
//IF xFILIAL("SC"6)=SC6->C6_FILIAL .And. SC9->C9_PEDIDO = SC6->C6_NUM
//IF xFILIAL("SC6") .And. SC9->C9_PEDIDO = SC6->C6_NUM
RecLock("SC6",.F.)
IF C6_TPOPER = "04"
SC6->C6_BLOQUEI = "S"
SC6->C6_BLQ = "S"
SC9->C9_BLCRED== "01"
ALERT("eNTROU ESTA ZIKA")
MsUnlock()
DbselectArea("SC6")
Dbskip()
EndIF
//eNDIF
Restarea(_aArea) //-- Restaura a posição da tabela corrente
Return()
Meg Lima Andrade
Analista de Sistemas - iFlow
11-972093083
www.iflow.com.br |
|
|
Mensagem do
REGISSOUZA
em 10/03/2014, 08:23 h
Local: SP Registro: 02/12/2011 Postagens: 200 |
BOM DIA
se vc tem o SC9 preenchido, coloca "01" no campo C9_BLQCRED, ai ele vai bloquear..
abraço
Reginaldo Souza
|
|
|
Mensagem do
MAHO
em 10/03/2014, 11:06 h
Local: SP Registro: 30/01/2014 Postagens: 3 |
Obrigada Reginaldo!
Caso não esteja gravado na SC9 existe outro caminho?
Meg Lima Andrade
Analista de Sistemas - iFlow
11-972093083
www.iflow.com.br |
|
|
Mensagem do
LUCKMAIL
em 10/03/2014, 11:54 h
Local: RS Registro: 06/03/2014 Postagens: 20 |
Usa o ponto de entrada MTA410T - Depois de gravar o pedido. |
|
|
Mensagem do
MAHO
em 14/03/2014, 12:10 h
Local: SP Registro: 30/01/2014 Postagens: 3 |
Consegui usando o ponto de entrada MTA440C9()
Muito obrigada pessoal!!!
Local aAreaSC5 := SC5->(GetArea())
Local aAreaSC6 := SC6->(GetArea())
Local aAreaSC9 := SC9->(GetArea())
Private _cValor := GetMV("MZ_LBC") // parametro que indica o tipo de operação bonificação
Private _cValor2 := GetMV("MZ_LBO") // parametro que indica o tipo de operação que deve ser bloqueado outros alem de bon- doação, etc
dbselectarea("SC6")
dbselectarea("SC9")
RecLock("SC6",.F.)
RecLock("SC9",.F.)
IF SC6->C6_TPOPER = _cValor
SC9->C9_BLCRED= "01" // 01- INDICA BLOQUEIO POR CREDITO
SC9->C9_XTPL = _cValor
EndIF
IF SC6->C6_TPOPER = _cValor2
SC9->C9_BLCRED= "01" // 01- INDICA BLOQUEIO POR CREDITO
SC9->C9_XTPL ="ZZ"
MsgInfo("Item bloqueado por outros")
EndIF
MsUnlock()
DbselectArea("SC6")
Dbskip()
RestArea(aAreaSC9)
RestArea(aAreaSC6) //Restaura a posição da tabela corrente
Return()
Meg Lima Andrade
Analista de Sistemas - iFlow
11-972093083
www.iflow.com.br |
|
Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|