database marmotech
screen size 24 by 80
{
Transportista      [f1]-[f2  ][c2                            ] 
Factura            [f3    ]
Factura Pagada     [c]


Usuario Creador    [f4       ]            Usuario Modificador [f6       ]
Fecha Creacion     [f5              ]     Fecha Modificacion  [f7              ]
}
end
tables
vetb00030,
vetb00015
attributes
f1   = vetb00030.cod_transp,autonext, 
       comments="Digite el codigo del Transportista";
f2   = vetb00030.sec_transp,autonext, 
       comments="Digite el codigo del Transportista";
c2   = vetb00015.nombre,noentry; 
f3   = vetb00030.factura,autonext, 
       comments="Digite el Numero de la Factura";
c    = vetb00030.pagada,autonext,upshift,
       comments="S = Factura ha sido pagada     N = Factura no ha sido pagada"; 
f4   = vetb00030.us_crea, noentry;
f5   = vetb00030.fech_crea, noentry;
f6   = vetb00030.us_mod, noentry;
f7   = vetb00030.fech_mod, noentry;
end

instructions
delimiters " "