Salve salve....
Ponto de entrada MA650EMP- ( PCP - Ordens de Produção)
MATA650-MA650EMP - Manipula Informações de Empenhos
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} MA650EMP
Manipula Informações de Empenhos
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function MA650EMP()
local aAreaSD4 := SD4->(getArea())
fUpdate()
restArea(aAreaSD4)
Return( Nil )
/*/{Protheus.doc} fUpdate
XXSXSXSX
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
Static Function fUpdate()
Local cQuery := '' as character
cQuery := " UPDATE SD4 "
cQuery += " SET SD4.XXXX= SC2.SSSS "
cQuery += " FROM " + RetSqlName('SD4') + " SD4 "
cQuery += " INNER JOIN " + RetSqlName('SC2') + " SC2 "
cQuery += " ON "
cQuery += " C2_FILIAL = D4_FILIAL "
cQuery += " AND C2_NUM + C2_ITEM + C2_SEQUEN = D4_OP "
cQuery += " AND SC2.D_E_L_E_T_ = ' ' "
cQuery += " WHERE "
cQuery += " SD4.D_E_L_E_T_ = ' ' "
cQuery += " AND SD4.D4_OP = '" + SD4->D4_OP + "' "
If TCSQLExec(cQuery) < 0
Help(NIL, NIL, 'MA650EMP', NIL, '[TCSQLError] ' + 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
