<%@language=vbscript%>
<%
Response.Buffer=True
If Session("ID")=0 then
Response.Redirect("http://www.migsa.com.mx")
Response.End
Else
%>
<!--#include file="clientesax.asp"-->
<%Session.LCID=2058%>
<!--#include file="fpdf.asp"-->
<%
Dim colorFila, Color
E1= Empresa
Nomdoc = numord
B1=rs1("Nombre")
B2=rs1("Direccion")
B3=rs1("Colonia")
B4=rs1("Poblacion")
B5=rs1("Telefono")
B6=rs1("Fax")
B7=rs1("website")
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF "P", "mm", "Letter"
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",9
pdf.SetFillColor 216,216,216
pdf.Open()
pdf.LoadModels("Cliente")
pdf.AddPage()
pdf.SetFont "Arial","",9
Fe1=(rs2("Clacli"))
Fe2=rs2("Nomcli")
Fe3=rs2("calcli")
NUMEXT = Rs2("numcli")
Numint = Rs2("numicli")
Fe4=rs2("colcli")
Fe5=rs2("Pobcli")
Fe6=rs2("Edocli")
Fe7=rs2("Cpcli")
Fe8=rs2("rfccli")
Fe9=rs2("stacli")
Fe10=rs2("nomvend")
Fe11=rs2("nomcot")
Fe12=rs2("clscli")
Fe13=FormatNumber(rs2("diacli"))
Fe14=Formatcurrency(rs2("limcli"))
Fe15=FormatNumber(rs2("descli"))
Fe16=FormatNumber(rs2("uticli"))
Fe17=Formatnumber(rs2("cvecli"))
Fe18=FormatNumber(rs2("ccocli"))
Fe19=rs2("tpecli")
Fe21=rs2("coicli")
Fe50=rs2("ctapago")
IF ISNULL(RS2("UCOCLI") ) THEN
FE22 = "-"
ELSE
Fe22=Cstr(rs2("UCOcli"))
END IF
Fe23=Formatcurrency(rs2("salcli"))
Fe24=rs2("revcli")
Fe25=rs2("cobcli")
Fe26=rs2("rencli")
Fe27=rs2("rcocli")
IF ISNULL(RS2("FALCLI")) THEN
FE28 = "-"
ELSE
Fe28=cSTR(rs2("falcli"))
END IF
Fe29=rs2("concli")
Fe30=rs2("tcocli")
Fe31=rs2("fcocli")
Fe32=rs2("ecocli")
Fe33=rs2("cpacli")
Fe34=rs2("tpacli")
Fe35=rs2("fpacli")
Fe36=rs2("epacli")
Fe37=rs2("rescli")
Fe38=rs2("reccli")
IF ISNULL(RS2("OBSCLI")) THEN
FE43 = "-"
ELSE
Fe43=rs2("oBScli")
END IF
Fe44=rs2("usucli")
pdf.Cell 30,4,"CLAVE:",0,0,"L",1
pdf.Cell 167,4,"( "& Fe1 & " ) ",0,0,"L",1
PDF.Ln(4)
pdf.Cell 30,4,"NOMBRE:",0,0,"L",0
pdf.Cell 167,4,Fe2,0,0,"L",0
PDF.Ln(4)
pdf.Cell 30,4,"CALLE:",0,0,"L",1
pdf.Cell 167,4,Fe3 & " " & Numext & " " & Numint,0,0,"L",1
PDF.Ln(4)
pdf.Cell 30,4,"COLONIA:",0,0,"L",0
pdf.Cell 167,4,Fe4,0,0,"L",0
PDF.Ln(4)
pdf.Cell 30,4,"POBLACION:",0,0,"L",1
pdf.Cell 167,4,Fe5,0,0,"L",1
PDF.Ln(4)
pdf.Cell 30,4,"ESTADO:",0,0,"L",0
pdf.Cell 167,4,Fe6,0,0,"L",0
PDF.Ln(4)
pdf.Cell 30,4,"CODIGO POSTAL:",0,0,"L",1
pdf.Cell 167,4,Fe7,0,0,"L",1
PDF.Ln(4)
pdf.Cell 30,4,"RFC:",0,0,"L",0
pdf.Cell 167,4,Fe8,0,0,"L",0
PDF.Ln(4)
pdf.Cell 30,4,"STATUS:",0,0,"L",1
pdf.Cell 167,4,Fe9,0,0,"L",1
PDF.Ln(4)
pdf.Cell 30,4,"CUENTA PAGO:",0,0,"L",0
pdf.Cell 167,4,Fe50,0,0,"L",0
PDF.Ln(4)
pdf.Cell 30,4,"VENDEDOR:",0,0,"L",1
pdf.Cell 167,4,Fe10,0,0,"L",1
PDF.Ln(4)
pdf.Cell 30,4,"COTIZADOR:",0,0,"L",0
pdf.Cell 167,4,Fe11,0,0,"L",0
PDF.Ln(4)
pdf.Cell 30,4,"CLASIFICACION:",0,0,"L",1
pdf.Cell 167,4,Fe12,0,0,"L",1
PDF.Ln(4)
pdf.Cell 30,4,"LISTA PRECIOS:",0,0,"L",0
pdf.Cell 167,4,Fe19,0,0,"L",0
PDF.Ln(4)
pdf.Cell 30,4,"ULTIMA COMPRA:",0,0,"L",1
pdf.Cell 167,4,Fe22,0,0,"L",1
PDF.Ln(4)
pdf.Cell 30,4,"RUTA ENTREGA:",0,0,"L",0
pdf.Cell 167,4,Fe26,0,0,"L",0
PDF.Ln(4)
pdf.Cell 30,4,"FECHA ALTA:",0,0,"L",1
pdf.Cell 167,4,Fe28,0,0,"L",1
PDF.Ln(4)
pdf.Cell 30,4,"COMPRADOR:",0,0,"L",0
pdf.Cell 167,4,Fe29,0,0,"L",0
PDF.Ln(4)
pdf.Cell 30,4,"TELEFONO:",0,0,"L",1
pdf.Cell 167,4,Fe30,0,0,"L",1
PDF.Ln(4)
pdf.Cell 30,4,"FAX:",0,0,"L",0
pdf.Cell 167,4,Fe31,0,0,"L",0
PDF.Ln(4)
pdf.Cell 30,4,"E-MAIL:",0,0,"L",1
pdf.Cell 167,4,Fe32,0,0,"L",1
PDF.Ln(4)
pdf.Cell 30,4,"RESTRICCIONES:",0,0,"L",0
pdf.Cell 167,4,Fe37,0,0,"L",0
PDF.Ln(4)
pdf.Cell 30,4,"HORARIO RECIBO:",0,0,"L",1
pdf.Cell 167,4,Fe38,0,0,"L",1
PDF.Ln(4)
pdf.Cell 30,4,"OBSERVACIONES:",0,0,"L",0
pdf.MultiCell 167,4,FE43,0,"J",0
pdf.Output()
End If
%>