{
-----------------------------------------------------------------------------
FORMULARIO      : VEFMMT031
OBJETIVO        : Captura la documentacion de las Notas de credito
REALIZADO POR   : Juan F. Soto
FECHA           : Junio 08, 1994
-----------------------------------------------------------------------------
}
database smarmotech
TOOLBAR 
  ITEM nuevo (TEXT="Nueva NC", IMAGE="new", COMMENT="Nueva Nota Credito")
  ITEM buscar (TEXT="Buscar Documento", IMAGE="find", COMMENT="Criterio de busqueda")
 SEPARATOR
  ITEM salir (TEXT="Salir", IMAGE="quit")
END

LAYOUT (TEXT="CREACION NOTAS CREDITOS", STYLE="basic")
GRID

{
  <G Encabezado                                                              >
    Numero de Documento [f001  ]
    Cliente             [f2]-[f003] [b                             ]
    Vendedor            [f004] [c                             ]
    Fecha               [f005    ]  Itbi      [it      ] 
    Concepto:           [co                                        ]
    Factura             [fa      ]BODEGA[bo                        ]
    
  <G Detalle                                                                    >
   Codigo Devolu.    Valor Bruto    % Desc.      Valor Desc.     Valor Neto
   Movim. 
   [f1]   [f006  ] [f009         ]  [pk1       ] [f018      ]   [f002         ]
   [f1]   [f006  ] [f009         ]  [pk1       ] [f018      ]   [f002         ]
   [f1]   [f006  ] [f009         ]  [pk1       ] [f018      ]   [f002         ]
   Total  [f011         ]
}
end
tables
cctb00001
ATTRIBUTES
COMBOBOX bo = formonly.bodega;
fa   = formonly.factura;
f011 = formonly.p_total,noentry;
f001 = cctb00001.num_doc,noentry;
f2 = cctb00001.tipo_cliente;
f003 = cctb00001.sec_cliente; 
b = formonly.nom_cli,noentry;
f004 = cctb00001.cod_emp_sec; 
c = formonly.nombre_emp,noentry;
f005 = cctb00001.fecha_orig,format = "dd/mm/yy";
pk1  = formonly.desc_p,comments="Entre Porciento Descuento";
f1   = formonly.cod_mov type smallint,
       comments = "Digite Codigo Movimiento Almacen",
       include = (12,13);
f006 = cctb00001.aplica_a, comments = 
"Digite numero documento almacen o 9999 Para los que no tienen facturas";
f009 = formonly.valor_pen;
f002 = formonly.valor_pag;
it   = formonly.itbi,noentry;
f018 = formonly.val_desc,noentry;   
co = formonly.concepto,scroll;
instructions
 screen record s_recibo[3] (cod_mov,aplica_a,valor_pen,desc_p,val_desc,
                            valor_pag)
 delimiters " "
end