{
---------------------------------------------------------------------------
FORMULARIO  : COFMWD018
OBJETIVO    : CONSULTAR Y/O MODIFICAR INFORMACIONES DE LOS EMBARQUES
DISENADO POR: JUAN F. SOTO
FECHA       : MARZO 19, 1997.
---------------------------------------------------------------------------
}
database marmotech
screen size 24 by 80
{
                         INFORMACION EMBARQUE [f00    ]
\g-------------------------------------------------------------\g
       Codigo     Descripcion        Embarcar       Recibida    
  [a][g][t ][se ][f3         ][f8 ][f6          ][f7          ]
  [a][g][t ][se ][f3         ][f8 ][f6          ][f7          ]
\g------------------- Datos Generales Del Embarque -------------\g
  Fecha Salida Estimada [f10     ] Fecha De Salida Confirmada [f11     ]
  Dias En Transito [k1] Dias De Llegada A Planta [k2 ] Fecha Confirnada
  No. Pfi [k3        ] Valor Fob [k4          ]      C/ Dias Tran.[pk      ]
  Valor Cif [k5        ] No. Ft. [k6          ] 
  Fletes Ft.[k9         ] Impuesto[k7        ] Acarreo [k8          ]
  Fecha Solicitud Pago [k10     ]  Fecha Del Pago [k11     ]
\g-------------------- Comentarios -----------------------------\g
  [f1                                                              ]
  [f1                                                              ]

}
end
tables
intb00001 
attributes
f00  = formonly.p_cod_emb,noentry;
a    = intb00001.cod_n,noentry,comments=
"<Esc> Se Dirige A Fecha De Salida Confirmada Y Datos Complementarios";
g    = intb00001.cod_grupo,noentry; 
t    = intb00001.cod_tipo,noentry; 
se   = intb00001.cod_sec,noentry; 
f3   = intb00001.descrip_esp,noentry;
f8   = intb00001.unidad_med,noentry;
f6   = formonly.cantidad,noentry;
f7   = formonly.recibido,noentry;

f10  = formonly.fecha_e_salida type date,format="dd/mm/yy";
f11  = formonly.fecha_con type date,format="dd/mm/yy";
k1   = formonly.dias_tran;
k2   = formonly.dia_planta;  
k3   = formonly.numero_pr,comments = "Digite Numero Pro-Forma";
k4   = formonly.fob;
k5   = formonly.cif;
k6   = formonly.numero_ft;
k9   = formonly.p_fletes;
k7   = formonly.p_impuesto;
k8   = formonly.p_acarreo;
k10  = formonly.fech_s_pa type date,format = "dd/mm/yy";
k11  = formonly.fech_pa type date,format = "dd/mm/yy";
f1   = formonly.detalles,comments = "<Esc> Actualiza Comentarios";
pk   = formonly.dia_faltan type date,format = "dd/mm/yy";
instructions
    screen record informa[2] (cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp,
                              unidad_med,cantidad,recibido)

    screen record detalla[2] (detalles)
end