Llamado procedimiento desde Form ShowModal

[pockelsm3]

Saludos Caminante, gracias por responderme

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.

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

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;