#include 'protheus.ch'
User function F845ACT()
Local aArea := GetArea()
Local cEspecie := PARAMIXB[1] // Especie del documento
Local cTipoMov := PARAMIXB[2] // Tipo de movimiento (V-venta / C-compra)
Local cSerie := PARAMIXB[3] // Serie del documento
Local cDocNum := PARAMIXB[4] // Número del documento
Local cCliFor := PARAMIXB[5] // Código del cliente/proveedor
Local cLoja := PARAMIXB[6] // Sucursal del cliente/proveedor
Local cItem := PARAMIXB[7] // Ítem del documento
Local cCodAct := PARAMIXB[8] // Código de la actividad
Local cTexto := ""
Local cNewAct := ""
cTexto := "F845ACT - Especie: "+cEspecie+" TipoMov: "+cTipoMov+" Serie: "+cSerie+" DocNum: "+cDocNum+" CliFor: "+cCliFor+" Loja: "+cLoja+" Item: "+cItem+" CodAct: "+cCodAct
MsgInfo(cTexto," F845ACT")
//Logica para actualizar el código de actividad
cNewAct := "620100"
RestArea(aArea)
FwFreeArray(aArea)
Return cNewAct |