Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure TFmenu.FormCreate(Sender: TObject);
- var
- t:TstringList;
- begin
- t:=TstringList.create;
- t.loadfromfile('conf.cfg');
- Zconn.HostName:=t.Values['host'];
- Zconn.Port:=strtoint(t.Values['puerto']);
- Zconn.Database:=t.Values['database'];
- Zconn.User:=t.Values['user'];
- Zconn.Password:=t.Values['password'];
- t.free;
- Zconn.connected:=true;
- Zq.sql.text:='Select * from tsca_usuario a left join tcc_empresa b on a.iempresa=b.idempresa where idusuario='+paramstr(1);
- Zq.open;
- idSucursal:=-1;
- if not Zq.IsEmpty then
- begin
- idUsuCajero:=Zq.fieldbyname('idusuario').asinteger;
- idEmp:=Zq.fieldbyname('iempresa').asinteger;
- cUsu:=Zq.fieldbyname('cusuario').asstring;
- end
- else
- begin
- Messagedlg('Error Usuario no Registrado...',mterror,[mbok],0);
- Application.terminate;
- end;
- Zq.SQL.text:='select fcc_escajero('+inttostr(idUsuCajero)+') caja';
- zq.open;
- iescajero:=zq.fieldbyname('caja').asinteger; //si es -1 es Administrador si no es un cajero valido si es 0 es caja cerrada pero es cajero y si es mayor a cero es la caja que esta abierta.
- Zq.SQL.text:='Select * from tcc_empresa where idempresa='+inttostr(idEmp);
- Zq.open;
- if not Zq.IsEmpty then
- begin
- cEmpresa:=zq.fieldbyname('cnombre').asstring;
- Snomemp.Caption:=zq.fieldbyname('cnombre').asstring;
- SdirEmp.Caption:=zq.fieldbyname('cdireccion').asstring;
- sTel.Caption:=zq.fieldbyname('ctelefono').asstring;
- Srfc.Caption:=zq.fieldbyname('crfc').asstring;
- SResponsable.Caption:=zq.fieldbyname('cresponsable').asstring;
- SdirFis.Caption:=zq.fieldbyname('cdireccionfiscal').asstring;
- end
- else
- begin
- Messagedlg('Error Empresa no Registrada...',mterror,[mbok],0);
- Application.terminate;
- end;
- if iescajero>0 then //
- begin
- Fmenu.Hide;
- RzGroup2Items0Click(nil);
- Fmenu.Close;
- end
- else if iescajero=0 then //no hay apertura de caja
- begin
- Zq.sql.text:='Select isucursal from tcc_cajero where idcajero='+inttostr(idUsuCajero);
- zq.open;
- if not Zq.IsEmpty then
- begin
- idSucursal:=Zq.fieldbyname('isucursal').asinteger;
- Zq.SQL.text:='select fcc_cajadisponible('+inttostr(idSucursal)+') as iCajaDisponible';
- Zq.open;
- if Zq.fieldbyname('iCajaDisponible').asinteger>0 then
- begin
- Zq.SQL.text:='select fcc_abrecaja('+inttostr(Zq.fieldbyname('iCajaDisponible').asinteger)+','+inttostr(idUsuCajero)+','+inttostr(idUsuCajero)+') as icorte';
- Zq.Open;
- if Zq.FieldByName('icorte').asinteger>0 then
- begin
- //RzGroup2Items0Click(nil);
- Fmenu.Hide;
- RzGroup2Items0Click(nil);
- Fmenu.Close;
- end
- else
- begin
- Messagedlg('Error No se pudo inicializar la caja Error 20001', mtError, [mbok],0);
- end;
- end
- else
- begin
- Messagedlg('Error El cajero no tiene una caja disponible para abrir Error 20002', mtError, [mbok],0);
- end
- end
- else
- begin
- Messagedlg('Error El cajero no tiene una sucursal definida Error 20003', mtError, [mbok],0);
- end;
- end;
- end;
Add Comment
Please, Sign In to add comment