Buenos dias
estoy haciendo un sistema contable y el sistema me arroja el mensaje que esta en el titulo
estoy usando Turbo delphi y Access 2003
lo que he podido determinar es que el mensaje me apacere algunos casos en el Locate y otros en el post
alguien sabe pq sucede esto?
adjunto el codigo
Código Delphi
[-]
procedure TfrmMayorizacion.AcumulaCostos;
var gn_R1, gn_R2, gn_R3, gn_R4, gn_R5, gn_R6, gn_R7, gn_R8 :String;
gu_R1, gu_R2, gu_R3, gu_R4, gu_R5, gu_R6, gu_R7, gu_R8 :String;
sn_R1, sn_R2, sn_R3, sn_R4, sn_R5, sn_R6, sn_R7, sn_R8 ouble;
su_R1, su_R2, su_R3, su_R4, su_R5, su_R6, su_R7, su_R8 ouble;
x_r1, _Cuenta :String;
x_SGN: Integer;
begin
gn_R1 := 'nr1_' + Llenar (IntToStr(iMes),2);
gn_R2 := 'nr2_' + Llenar (IntToStr(iMes),2);
gn_R3 := 'nr3_' + Llenar (IntToStr(iMes),2);
gn_R4 := 'nr4_' + Llenar (IntToStr(iMes),2);
gn_R5 := 'nr5_' + Llenar (IntToStr(iMes),2);
gn_R6 := 'nr6_' + Llenar (IntToStr(iMes),2);
gn_R7 := 'nr7_' + Llenar (IntToStr(iMes),2);
gn_R8 := 'nr8_' + Llenar (IntToStr(iMes),2);
gu_R1 := 'ur1_' + Llenar (IntToStr(iMes),2);
gu_R2 := 'ur2_' + Llenar (IntToStr(iMes),2);
gu_R3 := 'ur3_' + Llenar (IntToStr(iMes),2);
gu_R4 := 'ur4_' + Llenar (IntToStr(iMes),2);
gu_R5 := 'ur5_' + Llenar (IntToStr(iMes),2);
gu_R6 := 'ur6_' + Llenar (IntToStr(iMes),2);
gu_R7 := 'ur7_' + Llenar (IntToStr(iMes),2);
gu_R8 := 'ur8_' + Llenar (IntToStr(iMes),2);
sn_R1 := 0;
sn_R2 := 0;
sn_R3 := 0;
sn_R4 := 0;
sn_R5 := 0;
sn_R6 := 0;
sn_R7 := 0;
sn_R8 := 0;
su_R1 := 0;
su_R2 := 0;
su_R3 := 0;
su_R4 := 0;
su_R5 := 0;
su_R6 := 0;
su_R7 := 0;
su_R8 := 0;
x_SGN := 0;
tblCuentaGasto.Open;
tblCuentaArea.Open;
qryMovimientoContable.First;
while not qryMovimientoContable.eof do
begin
_Cuenta := qryMovimientoContableCcta1.AsString;
x_R1 := Copy(qryMovimientoContableCuenta.AsString,1,2);
if Pos(x_r1, c_R1+' '+c_R2+' '+c_R3+' '+c_R4+' '+c_R5+' '+c_R6+' '+c_R7+' '+c_R8) > 0 then
begin
if Pos(qryMovimientoContableDh.AsString, '1DI+') > 0 then
x_SGN := 1
Else
x_SGN := -1;
end;
if x_r1 = c_R1 then
begin
sn_R1 := sn_R1 + (x_SGN * qryMovimientoContablen_imp.Value);
su_R1 := su_R1 + (x_SGN * qryMovimientoContableu_imp.Value);
end;
if x_r1 = c_R2 then
begin
sn_R2 := sn_R2 + (x_SGN * qryMovimientoContablen_imp.Value);
su_R2 := su_R2 + (x_SGN * qryMovimientoContableu_imp.Value);
end;
if x_r1 = c_R3 then
begin
sn_R3 := sn_R3 + (x_SGN * qryMovimientoContablen_imp.Value);
su_R3 := su_R3 + (x_SGN * qryMovimientoContableu_imp.Value);
end;
if x_r1 = c_R4 then
begin
sn_R4 := sn_R4 + (x_SGN * qryMovimientoContablen_imp.Value);
su_R4 := su_R4 + (x_SGN * qryMovimientoContableu_imp.Value);
end;
if x_r1 = c_R5 then
begin
sn_R5 := sn_R5 + (x_SGN * qryMovimientoContablen_imp.Value);
su_R5 := su_R5 + (x_SGN * qryMovimientoContableu_imp.Value);
end;
if x_r1 = c_R6 then
begin
sn_R6 := sn_R6 + (x_SGN * qryMovimientoContablen_imp.Value);
su_R6 := su_R6 + (x_SGN * qryMovimientoContableu_imp.Value);
end;
if x_r1 = c_R7 then
begin
sn_R7 := sn_R7 + (x_SGN * qryMovimientoContablen_imp.Value);
su_R7 := su_R7 + (x_SGN * qryMovimientoContableu_imp.Value);
end;
if x_r1 = c_R8 then
begin
sn_R8 := sn_R8 + (x_SGN * qryMovimientoContablen_imp.Value);
su_R8 := su_R8 + (x_SGN * qryMovimientoContableu_imp.Value);
end;
qryMovimientoContable.Next;
end;
if not tblCuentaGasto.Locate('Empresa;Periodo;Cuenta', VarArrayOf([dmGlobal.g_CodigoEmpresa, Copy(dmGlobal.g_Periodo,1,4), _Cuenta]), []) then
Begin
tblCuentaGasto.Append;
tblCuentaGastoEmpresa.Value := qryMovimientoContableEmpresa.AsString;
tblCuentaGastoPeriodo.Value := Copy (dmGlobal.g_Periodo,1,4);
tblCuentaGastoCuenta.Value := _Cuenta;
End;
tblCuentaGasto.Edit;
tblCuentaGasto.FieldByName(gn_R1).Value := tblCuentaGasto.FieldByName(gn_R1).Value + sn_R1;
tblCuentaGasto.FieldByName(gn_R2).Value := tblCuentaGasto.FieldByName(gn_R2).Value + sn_R2;
tblCuentaGasto.FieldByName(gn_R3).Value := tblCuentaGasto.FieldByName(gn_R3).Value + sn_R3;
tblCuentaGasto.FieldByName(gn_R4).Value := tblCuentaGasto.FieldByName(gn_R4).Value + sn_R4;
tblCuentaGasto.FieldByName(gn_R5).Value := tblCuentaGasto.FieldByName(gn_R5).Value + sn_R5;
tblCuentaGasto.FieldByName(gn_R6).Value := tblCuentaGasto.FieldByName(gn_R6).Value + sn_R6;
tblCuentaGasto.FieldByName(gn_R7).Value := tblCuentaGasto.FieldByName(gn_R7).Value + sn_R7;
tblCuentaGasto.FieldByName(gn_R8).Value := tblCuentaGasto.FieldByName(gn_R8).Value + sn_R8;
tblCuentaGasto.FieldByName(gu_R1).Value := tblCuentaGasto.FieldByName(gn_R1).Value + sn_R1;
tblCuentaGasto.FieldByName(gu_R2).Value := tblCuentaGasto.FieldByName(gu_R2).Value + sn_R2;
tblCuentaGasto.FieldByName(gu_R3).Value := tblCuentaGasto.FieldByName(gu_R3).Value + sn_R3;
tblCuentaGasto.FieldByName(gu_R4).Value := tblCuentaGasto.FieldByName(gu_R4).Value + sn_R4;
tblCuentaGasto.FieldByName(gu_R5).Value := tblCuentaGasto.FieldByName(gu_R5).Value + sn_R5;
tblCuentaGasto.FieldByName(gu_R6).Value := tblCuentaGasto.FieldByName(gu_R6).Value + sn_R6;
tblCuentaGasto.FieldByName(gu_R7).Value := tblCuentaGasto.FieldByName(gu_R7).Value + sn_R7;
tblCuentaGasto.FieldByName(gu_R8).Value := tblCuentaGasto.FieldByName(gu_R8).Value + sn_R8;
tblCuentaGasto.Post;
tblCuentaGasto.Close;
tblCuentaArea.Close;
qryMovimientoContable.Close;
end;