#! /usr/bin/awk -f

# etc2leel.awk
# Jorge Fco. Ricarte Lopez                              
# Fri Aug 24 06:55:13 MDT 2007  
# jorgericarte@asuni.com.mx
# Files to psql
# Ultimo cambio: Mon 18 Jan 2010 10:49:20 AM MST

BEGIN {
FS=":"
"date +%Y%m%d" | getline mHoy

if ( (ARGV[1] ~ /HPCLIE/ ) || (ARGV[1] ~ /hpclie/) )
  {
    INSFAC="fnclie ( cl_cliente, cl_nombre, cl_domicil1, cl_colonia, cl_telefono, cl_rfc, cl_limicred, cl_plazo, cl_ciudad, cl_codipost, cl_nombre2, cl_comentario )"
    es="hpclie"
    mLinea="DELETE FROM fnclie;"
    print mLinea
  }

if ( (ARGV[1] ~ /HPCATA/ ) || (ARGV[1] ~ /hpcata/) )
  {
    INSFAC="fnarti ( ar_parte, ar_descrip, ar_prov, ar_moncom, ar_minimo, ar_maximo, ar_prelis, ar_cosult, ar_ubica, ar_exist1, ar_unimed, ar_margen1, ar_margen2, ar_margen3, ar_margen4, ar_grupo, ar_linea, ar_cospro )"
    es="hpcata"
    mLinea="DELETE FROM fnarti;"
    print mLinea
  }

if ( (ARGV[1] ~ /MOCXC/ ) || (ARGV[1] ~ /mocxc/) || (ARGV[1] ~ /.C/) )
  { 
    INSFAC="fnhmcc( hc_cliente, hc_tipodocu, hc_tipoclie, hc_numedocu, hc_refer, hc_fecha, hc_plazo, hc_importe, hc_impuesto, hc_total, hc_vendedor, hc_cobrador, hc_aplicar, hc_serie, hc_numpre )"
    CI=1
    CF=15
    es="mocxc"
  }

if ( (ARGV[1] ~ /ARTIC/ ) || (ARGV[1] ~ /artic/) )
  {
    INSFAC="fnarti ( ar_grupo, ar_parte, ar_refer, ar_descrip, ar_tipo, ar_ubica, ar_linea, ar_prov, ar_unimed, ar_cosult, ar_cospro, ar_prelis, ar_moncom, ar_margen1, ar_margen2, ar_margen3, ar_margen4, ar_factcos, ar_exist1, ar_exist2, ar_fecex2, ar_exist3, ar_fecex3, ar_exist4, ar_fecex4, ar_minimo, ar_maximo, ar_preord, ar_invfis1, ar_refinfi, ar_univenpe, ar_univenan, ar_univenme, ar_ventape, ar_ventaan, ar_ventame, ar_cosvenpe, ar_cosvenan, ar_cosvenme, ar_ultcom, ar_ultven, ar_actualizo, ar_ultciepe, ar_importa, ar_rotacion, ar_numdocrm, ar_status, ar_ultent, ar_ultsal, ar_codbar, ar_exiultent, ar_listprov, ar_tiporota )"
    es="arti"
    mLinea="DELETE FROM fnarti;"
    print mLinea
  }

if ( (ARGV[1] ~ /PROVE/ ) || (ARGV[1] ~ /prove/) )
  {
    INSFAC="fnprove ( pr_prov, pr_rfc, pr_nombre, pr_nombre2, pr_domicil1, pr_domicil2, pr_ciudad, pr_estado, pr_codipost, pr_telefono, pr_fax, pr_tipo, pr_condicion, pr_flete, pr_plazo, pr_limicred, pr_intediar, pr_diasdesc, pr_porcdesc, pr_factcost, pr_ultcompr, pr_ultpago, pr_altabaja, pr_companua, pr_compmens, pr_descanua, pr_descmens, pr_status, pr_saldo, pr_wbaja )"
    es="prove"
    mLinea="DELETE FROM fnprove;"
    print mLinea
  }

if ( (ARGV[1] ~ /CAPRE/ ) || (ARGV[1] ~ /capre/) )
  {
    INSFAC="fncapre ( ar_grupo, ar_parte, ar_refer, ar_descrip, ar_tipo, ar_ubica, ar_linea, ar_prov, ar_unimed, ar_cosult, ar_cospro, ar_prelis, ar_moncom, ar_margen1, ar_margen2, ar_margen3, ar_margen4, ar_factcos, ar_exist1, ar_exist2, ar_fecex2, ar_exist3, ar_fecex3, ar_exist4, ar_fecex4, ar_minimo, ar_maximo, ar_preord, ar_invfis1, ar_refinfi, ar_univenpe, ar_univenan, ar_univenme, ar_ventape, ar_ventaan, ar_ventame, ar_cosvenpe, ar_cosvenan, ar_cosvenme, ar_ultcom, ar_ultven, ar_actualizo, ar_ultciepe, ar_importa, ar_rotacion, ar_numdocrm, ar_status, ar_ultent, ar_ultsal, ar_codbar, ar_exiultent, ar_listprov, ar_tiporota )"
    es="capre"
    mLinea="DELETE FROM fncapre;"
    print mLinea
  }

m1=""
l=1
}

function fDate(fEsDat)
{
  if (fEsDat==" " || fEsDat=="") { fEsDat=mHoy }
  lnum=sprintf(",'%s'",fEsDat)   
  return lnum
}

function fNumero(fEsNum)
{
  if (fEsNum==0 || fEsNum==" " || fEsNum=="" || fEsNum=="." ) { fEsNum=0 }
  lnum=sprintf(",%s",fEsNum)   
  return lnum
}

function fBolean(fEsTrue)
{
  lnum="false"
  if (fEsTrue=="1") { lnum="true" }
  lnum=sprintf(",%s",lnum)   
  return lnum
}

function fCualprove(fNamFld,fValFld) 
{
#  print ("'")(fNamFld)("' -- '")(fValFld)("'")
#  print NR,CF,$0
  lval=""
  if (fNamFld=="Prov       ") { lval=sprintf("'%s'",fValFld)  }
  if (fNamFld=="Rfc        ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Nombre     ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Nombre2    ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Domicil 1  ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Domicil 2  ") { lval=sprintf(",'%s'",fValFld) }
  if (fNamFld=="Ciudad     ") { lval=sprintf(",'%s'",fValFld) }
  if (fNamFld=="Estado     ") { lval=sprintf(",'%s'",fValFld) }
  if (fNamFld=="Codi post  ") { lval=sprintf(",'%s'",fValFld) }
  if (fNamFld=="Telefono   ") { lval=sprintf(",'%s'",fValFld) }
  if (fNamFld=="Fax        ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Tipo       ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Condicion  ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Flete      ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Plazo      ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Limi cred  ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Inte diar  ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Dias desc  ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Porc desc  ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Fact cost  ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Ult compr  ") { lval=fDate(fValFld) } 
  if (fNamFld=="Feult pag  ") { lval=fDate(fValFld) } 
  if (fNamFld=="Fe alt baj ") { lval=fDate(fValFld) } 
  if (fNamFld=="Compr anu  ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Compr men  ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Desc anu   ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Desc men   ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Status     ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Saldo      ") { lval=fNumero(fValFld) } 
  if (fNamFld=="W baja     ") { lval=fBolean(fValFld) } 
  return lval
}

function fCualmocxc(fNamFld,fValFld) 
{
#  print ("'")(fNamFld)("' -- '")(fValFld)("'")
#  print NR,CF,$0
  lval=""
  if (fNamFld=="Clie prov  ") { lval=sprintf("'%s'",fValFld)  }
  if (fNamFld=="Tipo docu  ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Tipo clie  ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Nume docu  ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Refer      ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Fecha      ") { lval=fDate(fValFld) } 
  if (fNamFld=="Plazo      ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Importe    ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Impuesto   ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Total      ") { lval=fNumero(fValFld) }
  if (fNamFld=="Vendedor   ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Cobrador   ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Aplicar    ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Serie      ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Num precio ") { lval=sprintf(",'%s'",fValFld) } 
  return lval
}

function fCualarti(fNamFld,fValFld) 
{
  lval=""
  if (fNamFld=="Grupo      ") { lval=sprintf("'%s'",fValFld)  }
  if (fNamFld=="Num parte  ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Refer      ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Descrip    ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Tipo       ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Ubicacion  ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Linea      ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Proveedor  ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Uni medid  ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Costo ult  ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Costo pro  ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Prec list  ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Moneda com ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Margen 1   ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Margen 2   ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Margen 3   ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Margen 4   ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Fact cost  ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Exist 1    ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Exist 2    ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Fecha exi2 ") { lval=fDate(fValFld) } 
  if (fNamFld=="Exist 3    ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Fecha exi3 ") { lval=fDate(fValFld) } 
  if (fNamFld=="Exist 4    ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Fecha exi4 ") { lval=fDate(fValFld) } 
  if (fNamFld=="Minimo     ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Maximo     ") { lval=fNumero(fValFld) } 
  if (fNamFld=="P reorden  ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Inv fis 1  ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Ref inv fi ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Uni ven pe ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Uni ven an ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Uni ven me ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Venta pe   ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Venta an   ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Venta me   ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Cos ven pe ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Cos ven an ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Cos ven me ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Ultima com ") { lval=fDate(fValFld) } 
  if (fNamFld=="Ultima ven ") { lval=fDate(fValFld) } 
  if (fNamFld=="Actualizo  ") { lval=fDate(fValFld) } 
  if (fNamFld=="Ult cieper ") { lval=fDate(fValFld) } 
  if (fNamFld=="Importacio ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Rotacion   ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Num doc rm ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Status     ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Ultima ent ") { lval=fDate(fValFld) } 
  if (fNamFld=="Ultima sal ") { lval=fDate(fValFld) } 
  if (fNamFld=="Cod barras ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Exi ultent ") { lval=fNumero(fValFld) } 
  if (fNamFld=="List prov  ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Tiporota   ") { lval=sprintf(",'%s'",fValFld) } 
  return lval
}

function fCualhpcata(fNamFld,fValFld) 
{
  lval=""
  if (fNamFld=="Codigo     ") { lval=sprintf("'%s'",fValFld) } 
  if (fNamFld=="Desc       ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Proveedor  ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Dolares    ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Minimo     ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Maximo     ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Precio vta ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Puc        ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Localidad  ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Existe     ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Unidad     ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="M 1        ") { lval=fNumero(fValFld) } 
  if (fNamFld=="M 2        ") { lval=fNumero(fValFld) } 
  if (fNamFld=="M 3        ") { lval=fNumero(fValFld) } 
  if (fNamFld=="M 4        ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Familia    ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Subfamilia ") { lval=sprintf(",'%s'",fValFld)  }
  if (fNamFld=="Copro      ") { lval=fNumero(fValFld) } 
  return lval
}

function fCualhpclie(fNamFld,fValFld)
{
  lval=""
  if (fNamFld=="Codigo     ") { lval=sprintf("'%s'",fValFld)  }
  if (fNamFld=="Desc       ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Direcc     ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Colonia    ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Tel        ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Rfc        ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Limcre     ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Diacred    ") { lval=fNumero(fValFld) } 
  if (fNamFld=="Cd         ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Cp         ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Contacto   ") { lval=sprintf(",'%s'",fValFld) } 
  if (fNamFld=="Comenta    ") { lval=sprintf(",'%s'",fValFld) } 
  return lval
}

{
#  print NR,CF,$0
  fld=substr($2,2)
  if (fld ~ /'/) { gsub(/'/," ",fld) }
  if (fld ~ /*/) { gsub(/*/,"0",fld) }

# esc2lee
  fld01=$1
  fld02=$2
  if (fld01) 
  { 
    if (es=="mocxc") {m1=(m1)(fCualmocxc($1,fld)) }
    if (es=="arti" ) {m1=(m1)(fCualarti($1,fld)) }
    if (es=="prove") {m1=(m1)(fCualprove($1,fld)) }
    if (es=="capre") {m1=(m1)(fCualarti($1,fld)) }
    if (es=="hpcata") {m1=(m1)(fCualhpcata($1,fld)) }
    if (es=="hpclie") {m1=(m1)(fCualhpclie($1,fld)) }
  }
  else 
  { 
    mLinea=("INSERT INTO ")(INSFAC)(" VALUES ( ")(m1)(" );")
    m1=""
    print mLinea
  }

}

END {
#print mHoy
}