JXJ
11-08-2012, 23:50:09
Hola pues que tengo una duda.
hay algun formateador de codigo para delphi que
se puede configurar para que de esto
ID := BD.Query1.Fields[0].AsInteger; // ALMACEN_ID
RFC_PERTENECE_EMPRESA := BD.Query1.Fields[1].AsString;
// RFC_PERTENECE_EMPRESA
CODIGOPEDI := BD.Query1.Fields[2].AsString; //
UCODADUANA := BD.Query1.Fields[3].AsString; //
PEDIMENTONUM := BD.Query1.Fields[4].AsString; //
PEDIMENTOFECHA := BD.Query1.Fields[5].AsDateTime; //
PEDESTATUS := BD.Query1.Fields[6].AsInteger; //
Aduana := BD.Query1.Fields[7].AsString; //
CODIGOADU := BD.Query1.Fields[8].AsString; //
STATUS := BD.Query1.Fields[9].AsInteger; // STATUS
BD.Query1.Next;
me de este codigo bonito que ami me gusta asi por que me da facilidad para leerlo
ID := BD.Query1.Fields[0].AsInteger; // ALMACEN_ID
RFC_PERTENECE_EMPRESA := BD.Query1.Fields[1].AsString; // RFC_PERTENECE_EMPRESA
CODIGOPEDI := BD.Query1.Fields[2].AsString; //
UCODADUANA := BD.Query1.Fields[3].AsString; //
PEDIMENTONUM := BD.Query1.Fields[4].AsString; //
PEDIMENTOFECHA := BD.Query1.Fields[5].AsDateTime; //
PEDESTATUS := BD.Query1.Fields[6].AsInteger; //
Aduana := BD.Query1.Fields[7].AsString; //
CODIGOADU := BD.Query1.Fields[8].AsString; //
STATUS := BD.Query1.Fields[9].AsInteger; // STATUS
BD.Query1.Next;
hay algun formateador de codigo para delphi que
se puede configurar para que de esto
ID := BD.Query1.Fields[0].AsInteger; // ALMACEN_ID
RFC_PERTENECE_EMPRESA := BD.Query1.Fields[1].AsString;
// RFC_PERTENECE_EMPRESA
CODIGOPEDI := BD.Query1.Fields[2].AsString; //
UCODADUANA := BD.Query1.Fields[3].AsString; //
PEDIMENTONUM := BD.Query1.Fields[4].AsString; //
PEDIMENTOFECHA := BD.Query1.Fields[5].AsDateTime; //
PEDESTATUS := BD.Query1.Fields[6].AsInteger; //
Aduana := BD.Query1.Fields[7].AsString; //
CODIGOADU := BD.Query1.Fields[8].AsString; //
STATUS := BD.Query1.Fields[9].AsInteger; // STATUS
BD.Query1.Next;
me de este codigo bonito que ami me gusta asi por que me da facilidad para leerlo
ID := BD.Query1.Fields[0].AsInteger; // ALMACEN_ID
RFC_PERTENECE_EMPRESA := BD.Query1.Fields[1].AsString; // RFC_PERTENECE_EMPRESA
CODIGOPEDI := BD.Query1.Fields[2].AsString; //
UCODADUANA := BD.Query1.Fields[3].AsString; //
PEDIMENTONUM := BD.Query1.Fields[4].AsString; //
PEDIMENTOFECHA := BD.Query1.Fields[5].AsDateTime; //
PEDESTATUS := BD.Query1.Fields[6].AsInteger; //
Aduana := BD.Query1.Fields[7].AsString; //
CODIGOADU := BD.Query1.Fields[8].AsString; //
STATUS := BD.Query1.Fields[9].AsInteger; // STATUS
BD.Query1.Next;