Saludos Caminante, gracias por responderme
Cita:
Empezado por Caminante
Si te dice que las propiedades que quieres modificar son inaccesibles posiblemente es que no pusiste la unidad del form mdi en la seccion uses de tu ventana modal.
|
la unidad del form mdi esta declarada en el form showmodal, de lo contrario cuando escriba el procedimiento delphi lo marcaria con linea roja.
Cita:
Empezado por Caminante
No se si estoy entendiendo bien. No me quedo claro en que form esta el procedimiento que quieres llamar.
|
el procedimiento que llamo desde el showmodal, se encuentra en el form mdi
Cita:
Empezado por Caminante
Ahora si el metodo es del form mdi y lo llamas despues de que se cierra el form modal puede ser que es que estes destruyendo form antes de leer los valores requeridos.
|
en principio lo hacia luego del mandar a cerrar el showmodal, pense que el problema era por lo mismo que mencionas y cambie el llamado antes de mandar a cerrar el showmodal, pero persiste el inconveniente.
este es el codigo de cuando hago el llamado
click al boton
Código Delphi
[-]
procedure TfrmDevSelect.btnCargarClick(Sender: TObject);
begin
CargarDevolucion;
Close;
end;
donde se llama al procedimiento del mdi
Código Delphi
[-]
procedure TfrmDevSelect.CargarDevolucion;
begin
try
frmSalesReturn.ModificarNCF(SalesTableNCF.Value,SalesTableFACTURA.Value,SalesTableTAXCALC.Value,
SalesTableFECHAREGISTRO.Value,SalesTableDESCVALOR.Value,SalesTableDESCPORC.Value);
SalesLine.First;
while not SalesLine.Eof do
begin
if ckbAdd.EditValue = 'S' then
begin
frmSalesReturn.AgregarLineasDevolucion(SalesLineCODE.Value,SalesLineITEMDESCRIP.Value,SalesLineALMAC EN.Value,
SalesLineUNIDADES.Value,SalesLineREFERENCIA.Value,SalesLineTAXGROUP.Value,SalesLineITEMQTY.Value,
SalesLinePRICE.Value,SalesLineSUBTOTAL.Value,SalesLineDESC.Value,SalesLineDESCPORCENT.Value,
SalesLineDESCVALORPORCENT.Value,SalesLineITBIS.Value,SalesLineTOTAL.Value);
SalesLine.Next;
end
else SalesLine.Next;
end;
except
AddFallaSistema(Main.Usuario,'frmDevSelect','CargarDevolucion','MErInseLine');
mensaje(MErInseLine,PWideChar(Application.Title),MB_ICONERROR+MB_OK);
end;
end;