TM140GRV – Alteração de viagem de transferência

Precisa de ajuda sobre este assunto em seu ERP?

Olá! Tudo bem?

Segue um exemplo do P.E. TM140GRV, que é executado após Incluir/Alterar/Excluir uma determinada viagem de transferência, na rotina TMSA140.PRW.

#include "rwmake.ch"
#include "topconn.ch"

User Function TM140GRV()

Local aArea := GetArea()
Local nOpcx    := PARAMIXB[1]
Local cQuery := "" 

If nOpcx == 3 .OR. nOpcx == 4 

	c_Query := "SELECT * FROM " + RetSQLName("DUD") + " "
	c_Query += "WHERE D_E_L_E_T_ = ' ' "
	c_Query += "AND DUD_VIAGEM = '" + AllTrim(DTQ->DTQ_VIAGEM) + "' "
	c_Query += "AND DUD_FILORI = '" + AllTrim(DTQ->DTQ_FILORI) + "' "
	
	TcQuery c_Query NEW ALIAS "QRY"
	DbSelectArea("QRY")

	DbGotop()
	While !Eof()
		
		cQuery := "UPDATE " + RetSQLName("DT6") + " SET DT6_IDRCTE = ' ' "
		cQuery += "WHERE D_E_L_E_T_ = ' ' "
		cQuery += "AND DT6_FILDOC = '" + AllTrim(QRY->DUD_FILDOC) + "' "
		cQuery += "AND DT6_DOC    = '" + AllTrim(QRY->DUD_DOC) + "' "
		cQuery += "AND DT6_SERIE  = '" + AllTrim(QRY->DUD_SERIE) + "' "
		cQuery += "AND DT6_RETCTE NOT LIKE '%Autorizado%' "
				
		TCSQLEXEC(cQuery)		
			
		dbSkip()
	EndDo       
	
	QRY->( dbCloseArea() ) 
   
Endif

RestArea(aArea)
Return

#include "rwmake.ch"

#include "topconn.ch"

User Function TM140GRV()

Local aArea := GetArea()

Local nOpcx := PARAMIXB[1]

Local cQuery := ""

If nOpcx == 3 .OR. nOpcx == 4

c_Query := "SELECT * FROM " + RetSQLName("DUD") + " "

c_Query += "WHERE D_E_L_E_T_ = ' ' "

c_Query += "AND DUD_VIAGEM = '" + AllTrim(DTQ->DTQ_VIAGEM) + "' "

c_Query += "AND DUD_FILORI = '" + AllTrim(DTQ->DTQ_FILORI) + "' "

TcQuery c_Query NEW ALIAS "QRY"

DbSelectArea("QRY")

DbGotop()

While !Eof()

cQuery := "UPDATE " + RetSQLName("DT6") + " SET DT6_IDRCTE = ' ' "

cQuery += "WHERE D_E_L_E_T_ = ' ' "

cQuery += "AND DT6_FILDOC = '" + AllTrim(QRY->DUD_FILDOC) + "' "

cQuery += "AND DT6_DOC = '" + AllTrim(QRY->DUD_DOC) + "' "

cQuery += "AND DT6_SERIE = '" + AllTrim(QRY->DUD_SERIE) + "' "

cQuery += "AND DT6_RETCTE NOT LIKE '%Autorizado%' "

TCSQLEXEC(cQuery)

dbSkip()

EndDo

QRY->( dbCloseArea() )

Endif

RestArea(aArea)

Return

Sobre
Últimos Posts

Siga na rede

Fernando Bueno

Consultor em FBSOLUTIONS

Sou consultor na área de implantação de sistemas ERP, com experiência na análise e implantação de projetos de sistemas, configurando a estrutura do software, capacitando usuários-chaves, ministrando treinamentos e workshops.

Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.

Siga-me no Linked In

Siga na rede

TM140GRV – Alteração de viagem de transferência1 minutos de leitura

Fernando Bueno

Últimos posts por Fernando Bueno (exibir todos)