select max(correlativo) +1 from sysadm.fc_doc_cliente where num_empresa = ? and  tipo_documento = 6
select max(num_documento)+1 from sysadm.fc_doc_cliente where num_empresa = ? and  tipo_documento = 6

INSERT INTO sysadm.FC_DOC_CLIENTE 
( 
num_empresa, 
tipo_documento,----6
correlativo, 
cod_termino, ---cuando consultes cliente
proyecto,--NULL
cod_cliente,
num_serie,--NULL
num_documento,

fecha_documento,
valor_documento,
saldo_documento,---0
iva_documento,
valor_cheques,--0
nombre_documento, ----nombre cliente

impreso,---'N'
fecha_vencimiento,--calcular dependiendo del termino del cliente
nit_cliente,
cod_bodega,
sub_total_docto,

nombre_envio, NULL
dir_envio_1,-- adonde enviar puede ser dicrecion o observacion
ciudad_envio,null
tel_envio,null
fax_envio,null

cod_vendedor,---esto sino esta en sysadm.clientes puede estar en sysadm.clientes_empresa
total_vtas_exentas,
total_vtas_afectas,

tipo_doc_fiscal,
contabilizado,
anulado,

direccion,
cod_giro,

codigo_moneda,

observaciones,

aumento_o_desc,
monto_desc_aum,
valor_impuesto2,
valor_impuesto3,

atencion_a,

exportacion,

tipo_doc_ref,
correlativo_ref,
serie_ref,
num_doc_ref,

permiso_imp,
guardo,
retencion,

nrc_cliente1,
seguro,
flete,
pedido,
ingresa,

dui_ingresa,
Permiso_costo,
Permiso_margen,
version,
VtaNoSujeta,
contra_entrega,
cancelado,
num_doc_compra,
condicion,
garantia,
validez
)
VALUES
(
:nNumEmpresa,
:gnTipoDocumento,
:hWndFrmCotizacion.nCorrelativo , 
CASE :sCodTermino WHEN '' THEN Null WHEN NULL THEN NULL ELSE :sCodTermino END,
CASE :hWndFrmCotizacion.hWndFrmCotizInfoGral.sCodProyFCDocCliente  WHEN '' THEN NULL WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.hWndFrmCotizInfoGral.sCodProyFCDocCliente END,
:hWndFrmCotizacion.hWndFrmCotizInfoGral.dfnCodiCliente,
CASE :hWndFrmCotizacion.sNumSerie WHEN '' THEN NULL WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.sNumSerie END,
CASE :hWndFrmCotizacion.nNumDocumento WHEN '' THEN NULL WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.nNumDocumento END,

:hWndFrmCotizacion.hWndFrmCotizInfoGral.dfdFecha,
:hWndFrmCotizacion.hWndFrmCotizInfoGral.dfnTotal,
:hWndFrmCotizacion.nSaldoDocumento,
:hWndFrmCotizacion.hWndFrmCotizInfoGral.dfnIva,
0,
CASE :hWndFrmCotizacion.hWndFrmCotizInfoGral.dfsNombCliente WHEN '' THEN NULL WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.hWndFrmCotizInfoGral.dfsNombCliente END,

CASE :gnTipoDocumento WHEN 7 THEN 'S' ELSE 'N' END,
CASE :hWndFrmCotizacion.hWndFrmCotizInfoGral.dfdVence WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.hWndFrmCotizInfoGral.dfdVence END ,
CASE :hWndFrmCotizacion.hWndFrmCotizInfoGral.dfsNIT WHEN '' THEN NULL WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.hWndFrmCotizInfoGral.dfsNIT END,
:gsCodBodega,
:hWndFrmCotizacion.hWndFrmCotizInfoGral.dfnSubTotal,

CASE :hWndFrmCotizacion.hWndFrmCotizEnvios.dfsAtencionA WHEN '' THEN NULL WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.hWndFrmCotizEnvios.dfsAtencionA END,
CASE :hWndFrmCotizacion.hWndFrmCotizEnvios.mlsDireEnvio WHEN '' THEN NULL WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.hWndFrmCotizEnvios.mlsDireEnvio END ,
CASE :hWndFrmCotizacion.hWndFrmCotizEnvios.dfsCiudadEnvio WHEN '' THEN NULL WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.hWndFrmCotizEnvios.dfsCiudadEnvio END,
CASE :hWndFrmCotizacion.hWndFrmCotizEnvios.dfsTelEnvio WHEN '' THEN NULL WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.hWndFrmCotizEnvios.dfsTelEnvio END ,
CASE :hWndFrmCotizacion.hWndFrmCotizEnvios.dfsFaxEnvio WHEN '' THEN NULL WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.hWndFrmCotizEnvios.dfsFaxEnvio END ,

CASE :hWndFrmCotizacion.sCodVendCliente WHEN '' THEN NULL WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.sCodVendCliente END ,
:hWndFrmCotizacion.nVentasExentas,
:hWndFrmCotizacion.nVentasAfectas,

CASE :hWndFrmCotizacion.sTipoDocFiscal WHEN '' THEN NULL WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.sTipoDocFiscal END,
'N',
'N',

CASE :hWndFrmCotizacion.hWndFrmCotizInfoGral.mlDireccion WHEN '' THEN NULL WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.hWndFrmCotizInfoGral.mlDireccion END ,
CASE :hWndFrmCotizacion.sCodGiroCliente WHEN '' THEN NULL WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.sCodGiroCliente END,

CASE :hWndFrmCotizacion.sCodMoneda WHEN '' THEN NULL WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.sCodMoneda END,

CASE :hWndFrmCotizacion.hWndFrmCotizEnvios.mlsObs WHEN '' THEN Null WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.hWndFrmCotizEnvios.mlsObs END,

'D',
:hWndFrmCotizacion.hWndFrmCotizInfoGral.dfnDescuento,
0,
0,

CASE :hWndFrmCotizacion.hWndFrmCotizEnvios.dfsCotiDirigidaA WHEN '' THEN Null WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.hWndFrmCotizEnvios.dfsCotiDirigidaA END,

:hWndFrmCotizacion.sEsExportacion,

CASE :hWndFrmCotizacion.nLocalTipoDocumentoRef WHEN '' THEN Null WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.nLocalTipoDocumentoRef END,
CASE :hWndFrmCotizacion.hWndFrmCotizInfoGral.nCorrelativoDocRef WHEN '' THEN Null WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.hWndFrmCotizInfoGral.nCorrelativoDocRef END,
CASE :hWndFrmCotizacion.hWndFrmCotizInfoGral.dfsSerieRef WHEN '' THEN Null WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.hWndFrmCotizInfoGral.dfsSerieRef END,
CASE :hWndFrmCotizacion.hWndFrmCotizInfoGral.dfnNumRef WHEN '' THEN Null WHEN NULL THEN NULL ELSE :hWndFrmCotizacion.hWndFrmCotizInfoGral.dfnNumRef END,

CASE WHEN :gnTipoDocumento != 2 THEN :hWndFrmCotizacion.sImpConDocVencidos ELSE 'S' END,

CASE :SqlUser WHEN '' THEN NULL WHEN NULL THEN NULL ELSE :SqlUser END,

CASE :hWndFrmCotizacion.hWndFrmCotizInfoGral.dfnImpuesto WHEN NULL THEN 0 ELSE :hWndFrmCotizacion.hWndFrmCotizInfoGral.dfnImpuesto END,

:hWndFrmCotizacion.hWndFrmCotizInfoGral.dfsNRC,
:hWndFrmCotizacion.hWndFrmCotizEnvios.dfseguro,
:hWndFrmCotizacion.hWndFrmCotizEnvios.dfflete,
:hWndFrmCotizacion.hWndFrmCotizEnvios.dfpedido,
:hWndFrmCotizacion.hWndFrmCotizEnvios.dfempleado,
:hWndFrmCotizacion.hWndFrmCotizEnvios.dfdui,
:sUserCosto,
:sUserMargen,
:sVersion,
CASE :sVtaSujeta WHEN NULL THEN NULL ELSE :sVtaSujeta END ,
:sContraentrega,
:sCancelado,
:hWndFrmCotizacion.hWndFrmCotizInfoGral.dfDoccompra,
:hWndFrmCotizacion.hWndFrmCotizEnvios.dfCondicion,
:hWndFrmCotizacion.hWndFrmCotizEnvios.dfGarantia,
:hWndFrmCotizacion.hWndFrmCotizEnvios.dfValidez
) "

/****************************************************************************************************************/
"INSERT INTO sysadm.IN_DET_DOCUMENTO 
( 
num_empresa, 
tipo_documento,
correlativo, 
num_linea,
unidad_medida,
cod_producto,

proyecto, 
cantidad,

precio_unitario,

tipo_doc_fac,
correlativo_fac,
num_linea_fac

)
VALUES
(
:nNumEmpresa, 
:gnTipoDocumento,
:hWndFrmCotizacion.nCorrelativo_In_Documento,
:hWndFrmCotizacion.nNumLinea,
:hWndFrmCotizacion.hWndFrmCotizInfoGral.hWndTblProdYServicios.sUMedida,
:hWndFrmCotizacion.hWndFrmCotizInfoGral.hWndTblProdYServicios.sCodProd,

:hWndFrmCotizacion.hWndFrmCotizInfoGral.hWndTblProdYServicios.sProyecto,
:hWndFrmCotizacion.hWndFrmCotizInfoGral.hWndTblProdYServicios.nCantidad,

:hWndFrmCotizacion.hWndFrmCotizInfoGral.hWndTblProdYServicios.nCostoPromedio,

:gnTipoDocumento,
:hWndFrmCotizacion.nCorrelativo,
:hWndFrmCotizacion.nNumLineaFactura
) "