Campos no se insertan - El Rincón Dynamics

Hilo iniciado por Ritchie Funes Garcia el 5 de mayo de 2018

Viendo 5 entradas - de la 1 a la 5 (de un total de 5)

Autor

Entradas
mayo 5, 2018 a las 7:29 pm #15209

Ritchie Funes Garcia
Participante

APRENDIZ

980

saben porque cuando estoy haciendo un insert a axapta atravez de un servicio wcf no me guarda algunos campos y otros si? y cuanto yo ejecuto ese insert dentro de un job si me inserta bien todos los campos que mando a grabar

mayo 7, 2018 a las 9:41 am #15210

Juan Antonio Tomás
Participante

EXPERTO

90.689

Buenos días Ritchie,

Podrías darnos más detalle sobre lo que estás haciendo? Mostrar algo de código, o la diferencia entre la llamada que haces a través del servicio o a través del job…

Saludos.

mayo 7, 2018 a las 4:10 pm #15211

Ritchie Funes Garcia
Participante

APRENDIZ

980

este metodo inserta bien atravez del job

static void InsertarSolPrecio(Args _args)
{

PriceDiscRequest EncaPrecio;
CUSTTABLE cliente ;
NumberSequenceTable secuencia ;
smmBusRelTable relacioncomercial ;
transDate dia ;
transDate pdia ;
str 20 pda ;
str 20 ruta ;
str 20 grupoprecio ;
str 20 lineadesc ;
ABC ABCd ;
int nsolicitud ;
str 3 empresa ;
str 20 cuenta_cliente ;
str 20 acuerdo ;
str 20 salestaker ;
;
dia = today();
pdia = 01\01\1900;
empresa = “dsr” ;
cuenta_cliente = “003326” ;
salestaker = “0079” ;

select firstonly * from cliente
where cliente.AccountNum == cuenta_cliente
&& cliente.dataAreaId == empresa ;

pda = cliente.Dimension[1] ;
ruta = cliente.Dimension[2] ;
grupoprecio = cliente.PriceGroup ;
lineadesc = cliente.LineDisc ;
ABCd = cliente.ABCClasificacion ;

select firstonly NEXTREC from secuencia
where secuencia.NumberSequence == “Preq” // es el numero de seucneia para solicitud de precio
&& secuencia.dataAreaId == empresa ;

nsolicitud = secuencia.NEXTREC ;

select firstonly BUSRELACCOUNT from relacioncomercial
where relacioncomercial.dataAreaId == empresa && relacioncomercial.CustAccount == cuenta_cliente ;

acuerdo = relacioncomercial.BUSRELACCOUNT ;

changeCompany(empresa)
{

ttsBegin;

select forUpdate EncaPrecio;

// encaprecio.dataAreaId = “dsr” ; // empresa que solicita la solicitud del precio
EncaPrecio.CustAccount = cuenta_cliente ; // cuenta de cliente
EncaPrecio.smmBusRelAccount = acuerdo ; // relacion de negocio
EncaPrecio.RequestEmplId = salestaker ; // el vendedor
EncaPrecio.AcceptReject = 1 ; // este debe quedar asi
EncaPrecio.PriceRequestId = “Preq_0″+int2str( nsolicitud ) ; // numero de consecutivo
EncaPrecio.Registered = 0 ; // este debe quedar asi
EncaPrecio.Listo = 0 ; // este debe quedar asi
EncaPrecio.Posted = 0 ; // este debe quedar asi
EncaPrecio.TransDate = dia ; // fecha de solicitud del precio
EncaPrecio.ToDate = pdia ; // este debe ser vacio
EncaPrecio.ApprovalDate = pdia; // esta debe ser vacio
EncaPrecio.PriceDiscJournalNum = “” ; // este debe ser vacio
EncaPrecio.ApprovalEmplId = “” ; // empleado que lo aprueba
EncaPrecio.Approvaltime = 0 ; // este valor debe quedar en cero
EncaPrecio.MarginRequest = 0 ; // margen default
EncaPrecio.TotalRequest = 0 ; // total default
encaprecio.TotalCost = 0 ; // total costo default
encaprecio.MarginApproval = 0 ; // default
encaprecio.TotalApproval = 0 ; //default
encaprecio.TotalCostGerencia = 0 ; // default
encaprecio.MarginApprovalGerencia = 0 ; // default

encaprecio.CustPriceGroup = grupoprecio ;
encaprecio.CustLineDiscCode = lineadesc ;
encaprecio.ABC = ABCd ;
encaprecio.Dimension[1] =pda ;
encaprecio.Dimension[2] =ruta ;
EncaPrecio.insert();

ttsCommit;

update_recordset secuencia setting NEXTREC = secuencia.NEXTREC + 1
where secuencia.NumberSequence == “preq” && secuencia.dataAreaId == empresa ;

}
print “termino” ;
pause ;

}

el que se llama atravez del servicio

client server public static str SOLICITUD_PRECIO( str _account, str _salestaker, str _dataAreaID , str _detalle )
{ // inicio del metodo

// declaracion de variables
PriceDiscRequest EncaPrecio;
CUSTTABLE cliente ;
NumberSequenceTable secuencia ;
smmBusRelTable relacioncomercial ;
transDate dia ;
transDate pdia ;
str 20 pda ;
str 20 ruta ;
str 20 grupoprecio ;
str 20 lineadesc ;
ABC ABCd ;
int nsolicitud ;
str 3 empresa ;
str 20 cuenta_cliente ;
str 20 acuerdo ;
str 20 salestaker ;
str 20 smm ;
;

// inicializar variables
dia = today();
pdia = 01\01\1900;
//empresa = _dataAreaID ;
// cuenta_cliente = _account ;
// salestaker = _salestaker ;
empresa = “dsr” ;
salestaker = “0079” ;
cuenta_cliente = “003326” ;
_detalle = “011127_289” ;
smm = “011127_289”;
select firstonly * from cliente
where cliente.AccountNum == cuenta_cliente
&& cliente.dataAreaId == empresa ;

pda = cliente.Dimension[1] ;
ruta = cliente.Dimension[2] ;
grupoprecio = cliente.PriceGroup ;
lineadesc = cliente.LineDisc ;
ABCd = cliente.ABCClasificacion ;

select firstonly NEXTREC from secuencia
where secuencia.NumberSequence == “Preq” // es el numero de seucneia para solicitud de precio
&& secuencia.dataAreaId == empresa ;

nsolicitud = secuencia.NEXTREC ;

changeCompany(empresa)
{
ttsBegin;

select firstonly BUSRELACCOUNT from relacioncomercial
where relacioncomercial.dataAreaId == empresa && relacioncomercial.CustAccount == “003326” /*cuenta_cliente*/ ;

acuerdo = relacioncomercial.BUSRELACCOUNT ;

select forUpdate EncaPrecio;

// encaprecio.dataAreaId = “dsr” ; // empresa que solicita la solicitud del precio
EncaPrecio.CustAccount = cuenta_cliente ; // cuenta de cliente
EncaPrecio.smmBusRelAccount = smm ; // relacion de negocio
EncaPrecio.RequestEmplId = salestaker ; // el vendedor
EncaPrecio.AcceptReject = 1 ; // este debe quedar asi
EncaPrecio.PriceRequestId = “Preq_0″+int2str( nsolicitud ) ; // numero de consecutivo
EncaPrecio.Registered = 0 ; // este debe quedar asi
EncaPrecio.Listo = 0 ; // este debe quedar asi
EncaPrecio.Posted = 0 ; // este debe quedar asi
EncaPrecio.TransDate = dia ; // fecha de solicitud del precio
EncaPrecio.ToDate = pdia ; // este debe ser vacio
EncaPrecio.ApprovalDate = pdia; // esta debe ser vacio
EncaPrecio.PriceDiscJournalNum = “” ; // este debe ser vacio
EncaPrecio.ApprovalEmplId = “” ; // empleado que lo aprueba
EncaPrecio.Approvaltime = 0 ; // este valor debe quedar en cero
EncaPrecio.MarginRequest = 0 ; // margen default
EncaPrecio.TotalRequest = 0 ; // total default
encaprecio.TotalCost = 0 ; // total costo default
encaprecio.MarginApproval = 0 ; // default
encaprecio.TotalApproval = 0 ; //default
encaprecio.TotalCostGerencia = 0 ; // default
encaprecio.MarginApprovalGerencia = 0 ; // default

encaprecio.CustPriceGroup = grupoprecio ;
encaprecio.CustLineDiscCode = lineadesc ;
encaprecio.ABC = ABCd ;
encaprecio.Dimension[1] =pda ;
encaprecio.Dimension[2] =ruta ;
EncaPrecio.insert();
ttsCommit;

// actualiza el numero de consecutivo por la empresa
update_recordset secuencia setting NEXTREC = secuencia.NEXTREC + 1
where secuencia.NumberSequence == “preq” && secuencia.dataAreaId == empresa ;

// return “inserto” ;
}

return “inserto” ;

} // fin del metodo

mayo 14, 2018 a las 6:02 pm #15212

Ritchie Funes Garcia
Participante

APRENDIZ

980

en que tabla encuentro el costo total de una venta

mayo 15, 2018 a las 3:55 pm #15213

David Rodriguez
Participante

PARTICIPANTE

8.050

una vez que registras la venta puedes obtener el costo total: CustInvoiceJour.

sobre lo otro tienes los mismos tipos de datos en los campos que te faltan por insertar?
Autor

Entradas