Perguntas Rutina MATA469 - Desaprobar Pedido

Hola! BOM DIA!

Mi nombre es Aldo, necesito si alguien tiene algún PE de la rutina MATA469. Se que existe el M469ITEM pero no tengo ningun ejemplo.

Si alguien me puede ayudar, le agradezco!

Saludos!!!!!

Hola Aldo, espero te sirva este pequeño ejemplo

#INCLUDE "PROTHEUS.CH"
#include "rwmake.ch"

/*

---

Rutina: M469ITEM
PUNTO DE ENTRADA PARA BORRAR RESERVA EN CAMPO REFERENCIA C6_XRESERV AL
ANULAR APROBACION DE PEDIDO DE VENTA

Autor: Luis Servín
FECHA: 06/07/17
Sistema: Protheus 12

---

*/

User function M469ITEM

Local _cAreaSC9:= SC9->(GetArea())
Local cPedidoC9 := SC9->C9_PEDIDO

cUpdate:=" UPDATE " + RetSqlName("SC6") + " SET C6_XRESERV = 0 "
cUpdate+= " WHERE C6_FILIAL = '" + XFILIAL("SC6")+"'"
cUpdate+= " AND C6_NUM = '" + alltrim(SC9->C9_PEDIDO) + "'"
cUpdate+= " AND C6_ITEM = '" + alltrim(SC9->C9_ITEM) + "'"
cUpdate+= " AND C6_PRODUTO = '" + alltrim(SC9->C9_PRODUTO) + "'"
cUpdate+= " AND D_E_L_E_T_<>'*' "
TcSqlExec(cUpdate)

return (.T.)

Gracias Luis!, estoy queriendo hacer algo parecido al ejemplo que envías pero apuntando al cliente, así que tu respuesta me sirve.

Te consulto una cosa, la matriz _cAreaSC9 en tu ejemplo, sabés que estructura tiene?, porque en las dimensiones que probé solo tiene el nombre de la tabla.

Muchas gracias por tu tiempo!, Saludos!!!!