Perguntas Ponto Entrada MATA416 (Orçamento)

Mais
7 anos 6 meses atrás #31039 por Claudinei Martins
Boa tarde aos Colegas,

Estou precisando de um Ponto de Entrada que na efetivação do Orçamento para Pedido de Venda um campo do Cabeçalho do Orçamento seja incluso no Cabeçalho do Pedido de Vendas (Os campos são customizados e já estão criados)


Obrigado

Claudinei

Por favor Acessar ou Registrar para participar da conversa.

Mais
7 anos 6 meses atrás - 7 anos 6 meses atrás #31066 por admin
Respondido por admin no tópico Ponto Entrada MATA416 (Orçamento)
/*/
_____________________________________________________________________________
¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
¦¦+-----------------------------------------------------------------------+¦¦
¦¦¦Programa  ¦    ¦ Autor ¦  Luiz Alberto                      ¦ Data ¦ ¦¦¦
¦¦+----------+------------------------------------------------------------¦¦¦
¦¦¦Descriçào ¦ Efetivacao Pedido Vendas em Orcamento                      ¦¦¦
¦¦+----------+------------------------------------------------------------¦¦¦
¦¦¦Uso       ¦                                                            ¦¦¦
¦¦+-----------------------------------------------------------------------+¦¦
¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
/*/
#INCLUDE "PROTHEUS.CH"
#INCLUDE "RWMAKE.CH"

USER FUNCTION MTA416PV()
LOCAL NX :=0                                                         
Local aAreaSCK := GetArea("SCK")

M->C5_TRANSP := SCJ->CJ_TRANSP
M->C5_CODCON := SCJ->CJ_CODCON
M->C5_M2PERC := SCJ->CJ_M2PERC
M->C5_VEND   := SCJ->CJ_VEND
M->C5_REPRESE:= SCJ->CJ_REPRESE
M->C5_M2CIFRA:= SCJ->CJ_M2CIFRA
M->C5_COMREPR:= SCJ->CJ_COMREPR
M->C5_TPFRETE:= SCJ->CJ_INCOTER
M->C5_TIPOENT:= SCJ->CJ_TIPOENT
M->C5_ATEND  := SCJ->CJ_ATEND
M->C5_OBSENTR:= SCJ->CJ_OBSENTR
M->C5_INCOMP := SCJ->CJ_INCOMP
If SC5->(FieldPos("C5_ENDETIQ")) > 0
	M->C5_ENDETIQ := SCJ->CJ_ENDETIQ
Endif
If SC5->(FieldPos("C5_TPPAGTO")) > 0
	M->C5_TPPAGTO := SCJ->CJ_TPPAGTO
Endif                          
If SC5->(FieldPos("C5_M2VELIQ")) > 0
	M->C5_M2VELIQ:= SCJ->CJ_M2VELIQ
Endif

FOR nX :=1 TO len(_aCols)                                            
	nPosqdlib := aScan( aHeadC6, { |x| Alltrim(x[2])=="C6_QTDLIB" } )
	nPosOrc   := aScan( aHeadC6, { |x| Alltrim(x[2])=="C6_NUMORC" } )
	nPosDtProg:= aScan( aHeadC6, { |x| Alltrim(x[2])=="C6_DTPROG" } ) 
	nPosNCM   := aScan( aHeadC6, { |x| Alltrim(x[2])=="C6_POSIPI" } )
	SCK->(DbSelectArea("SCK"))
	SCK->(DbSetOrder(1))
	If SCK->(DbSeek(xfilial("SCK") + _aCols[NX][nPosOrc] )) .And. nPosDtProg > 0 .And. nPosNCM > 0
		_aCols[NX][nPosDtProg] := SCK->CK_DTPROG	
		_aCols[NX][nPosNCM]    := SCK->CK_POSIPI			
	EndIF
	_aCols[NX][nPosqdlib] :=0
NEXT                          
RestArea(aAreaSCK)
aColsC6:=_aCols
RETURN
Ultima edição: 7 anos 6 meses atrás por admin.

Por favor Acessar ou Registrar para participar da conversa.

Mais
6 anos 1 mês atrás #32461 por ggarauj
Respondido por ggarauj no tópico Ponto Entrada MATA416 (Orçamento)
Boa noite,


Estou parte do seu fonte e esta tudo funcionando perfeitamente.
estou com uma duvida.
Como vc grava os valores para os campos:

SCJ->CJ_VEND
SCJ->CJ_REPRESE
SCJ->CJ_COMREPR
SCJ->CJ_ATEND


Estou usando o portal do cliente para incluir uma transferencia e usando este fonte para aprovar o Orcamento para virar um pedido de venda.

Preciso de gravar os dados acima o que vc poderia me orientar?
forte abs.
Glaucio.

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.124 segundos
Joomla templates by a4joomla