MATA103-GQREENTR - Finalização do documento de entrada

Salve salve....

Ponto de entrada GQREENTR - ( Compras - Documento de Entrada )

MATA103-GQREENTR - Finalização do documento de entrada.

#INCLUDE 'TOTVS.CH'

/*/{Protheus.doc} GQREENTR
Finalização do documento de entrada

@author 	Eurai Rapelli
@since 		2023.01.01
/*/
User Function GQREENTR()
Local aAreaAtu := GetArea() as array
Local cQuery   := "" as character


Begin Sequence


If IsInCallStack( "MATA116" )
	Break
Endif


updSE2()
If l103Class .AND. SF1->F1_TIPO $ "N|B"

	cQuery := "SELECT D1_COD, D1_TIPO, D1_FORNECE, D1_LOJA "
	cQuery += "  FROM " + RetSQLName( "SD1" )
	cQuery += " WHERE D1_FILIAL   = '" + SF1->F1_FILIAL  + "' " 
	cQuery += "   AND D1_DOC      = '" + SF1->F1_DOC     + "' "
	cQuery += "   AND D1_SERIE    = '" + SF1->F1_SERIE   + "' "
	cQuery += "   AND D1_FORNECE  = '" + SF1->F1_FORNECE + "' "
	cQuery += "   AND D1_LOJA     = '" + SF1->F1_LOJA    + "' "
	cQuery += "   AND D_E_L_E_T_  = ' ' "
	
	If Select( "TMP_SD1" ) > 0
		TMP_SD1->( dbCloseArea() )
	Endif
	MPSysOpenQuery(cQuery,'TMP_SD1')
	
	Do While TMP_SD1->( ! Eof() )
	
		

		TMP_SD1->( dbSkip() )
	EndDo
	TMP_SD1->( dbCloseArea() )

Endif

End Sequenec


RestArea( aAreaAtu )
Return( Nil )



/*/{Protheus.doc} updSE2
Atualiza SE2

@type		function
@author		Eurai Rapelli
@since 		2023.01.01
/*/
Static Function updSE2()
Local cQuery        := ''
Local nRet          := 00
Local aE2HIST       := TamSX3('E2_HIST')

SD1->( dbSetOrder(1) )
SC7->( dbSetOrder(1) )

If !SD1->( dbseek( xFilial("SD1") + SF1->F1_DOC + SF1->F1_SERIE + SF1->F1_FORNECE + SF1->F1_LOJA ) )
    Return( Nil )
Endif
If !SC7->( dbseek( xFilial("SC7") + SD1->D1_PEDIDO ) )
    Return( Nil )
Endif

cQuery := " UPDATE " + RetSqlName("SE2")
cQuery += " SET "
cQuery += "     E2_HIST = '" + SubStr(SC7->C7_OBS,01,aE2HIST[01]) + "' "
cQuery += " WHERE "
cQuery += "     E2_FILIAL  = '" + xFilial("SE2") + "'  "
cQuery += "     AND E2_PREFIXO = '" + SF1->F1_SERIE + "'  "
cQuery += "     AND E2_NUM     = '" + SF1->F1_DOC + "'  "
cQuery += "     AND E2_FORNECE = '" + SF1->F1_FORNECE + "'  "
cQuery += "     AND E2_LOJA    = '" + SF1->F1_LOJA + "'  "
cQuery += "     AND D_E_L_E_T_ = ' '"

If nRet := TCSQLExec( cQuery ) != 0
    Help(NIL, NIL, 'GQREENTR/updSE2', NIL, 'Erro atualização. <TCSQLError()', 1, 0, NIL, NIL, NIL, NIL, NIL, {'Linha{'+cValtoChar(ProcLine(0))+'}'})
Endif


Return( Nil )

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

Um abraço, e até a próxima