Hi everyone,
I’m creating an exzecutable program, that calls to a function in a codeunit published as a WebService. If I run the CU, I don’t have aby problem, but executin the exe program, I get this error:
This is the code I’m calling from the executable file:
ICforStock()
//IC
// IF NOT ISSERVICETIER THEN
// EXIT;
// IF NOT GUIALLOWED THEN
// EXIT;
lItem.SETCURRENTKEY("Item Category Code","Product Group Code");
lItem.SETRANGE("Item Category Code",'INSIZE');
IF lItem.FINDSET THEN REPEAT
lItem.CALCFIELDS(Inventory,"Qty. on Sales Order");
lCantidad := lItem.Availability;
ICStock_CALL(lItem."No.", lCantidad);
UNTIL lItem.NEXT = 0;
ICStock_CALL(pCodprod : Code[35];pCantidad : Decimal) CabVenta : Code[20]
//Creamos conexión IC
CLEAR(xmlhttp);
CREATE(xmlhttp,FALSE,TRUE);
ICConfiguration.GET;
ICURL := ICConfiguration."IC URL";
xmlhttp.open('POST',ICURL,0,'betea','onM1crosoft1');
xmlhttp.setRequestHeader('Content-Type','text/xml; charset=utf-8');
xmlhttp.setRequestHeader('SOAPAction','FuncionesIC');
xmlhttp.setTimeouts(20000,20000,20000,200000);
xmlhttp.send('<?xml version="1.0" encoding="utf-8"?>'+
'<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" '+
'xmlns:nav="urn:microsoft-dynamics-schemas/codeunit/FuncionesIC">'+
'<soap:Header/>'+
'<soap:Body>'+
'<nav:ICStock_FUN>'+
'<nav:pCodprod>'+pCodprod+'</nav:pCodprod>'+
'<nav:pCantidad>'+FORMAT(pCantidad)+'</nav:pCantidad>'+
'</nav:ICStock_FUN>'+
'</soap:Body>'+
'</soap:Envelope> ');
ICStock_FUN(pCodprod : Code[35];pCantidad : Text)
EVALUATE(vCantidad,pCantidad);
lItem.RESET;
IF lItem.GET(pCodprod) THEN BEGIN
lItem."Stock In IC" := vCantidad;
lItem.MODIFY;
END;
Any hint about this? If I don’t comment GUIALLOWED and SERVITIER, I don’t get the error, but the functions aren’t executed…
Thank you all