<%@language=vbscript%>
<%
Response.Buffer=True
If Session("ID")=0 then
Response.Redirect("http://www.grupo-mim.com")
Response.End
Else
%>
<!--#include file="fpdf/numeros.asp"-->
<%Session.LCID=2058%>
<!--#include file="fpdf.asp"-->
<%
Dim Empresa, ffacnum
Dim Cn1,rs2, Sql2, rs3, sql3, rs4, sql4, rs5, sql5, RS6, SQL6
Empresa = Cstr(Request.querystring("Empresa"))
ffacnum = request.querystring("ffacnum")
Set Cn1 = Server.CreateObject( "ADODB.Connection" )
Cn1.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=ADMIMSIS;PWD=ST2108GP;Database=" & Empresa &""
set rs2 = server.CreateObject("ADODB.Recordset")
SQL2="select * from ffacenc, clientes, monedas, vendedores, ffacdet, users " &_
"where numfface = "& ffacnum &" and clacli = clifface and cladiv = monfface " &_
"and vencli = cvevend and numfface = nfaffacd and usufface = clausr;"
rs2.open sql2,cn1,1,2
set rs3 = server.CreateObject("ADODB.Recordset")
SQL3="select * from ffacadd " &_
"where nfaffacd = "& ffacnum &" order by secffacd asc;"
rs3.open sql3,cn1,1,2
E1= Empresa
Nomdoc = ffacnum
Fe1=rs2("Clifface")
Fe2=rs2("Nomcli")
Fe3=rs2("calcli")
Fe4=rs2("colcli")
Fe5=rs2("Pobcli")
Fe6=rs2("Edocli")
Fe7=rs2("Cpcli")
Fe8=rs2("rfccli")
Fe9=Cstr(rs2("numfface"))
Fe10=Cstr(rs2("Fecfface"))
Fe11=cstr(rs2("vencli"))
Fe12=rs2("obsfface")
If rs2("Stafface") = "C" Then
Fe12 = " FACTURA CANCELADA POR PROCESO "
Else
fe12 = fe12
End If
Fe24=rs2("revcli")
Fe13=rs2("desdiv")
Fe14=FormatNUMBER(rs2("tcafface"),4)
Fe16=rs2("ABRdiv")
Fe17=Formatnumber(rs2("Totfface"))
Fe19=Formatnumber(rs2("ivtfface"),2)
Fe18=Formatnumber(rs2("SUBfface"))
FEAN=Formatnumber(rs2("antifface"))
Fe20=rs2("LABFface")
Fe21=rs2("EMBFFACE")
Fe22=rs2("numfFACE")
Fe23=rs2("EMBFFACE")
neto=fe17 - fean
Neto = Formatnumber(Neto,2)
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF "P", "mm", "Letter"
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",7
PDF.OPEN()
pdf.LoadModels("Faccon")
pdf.SetLeftMargin(3.0)
pdf.AddPage()
pdf.SetFont "Arial","",7.5
'pdf.SetFillColor 197,229,213
Do while Not(rs3.EOF)
Fd1=Formatnumber(rs3("secffacd"),0)
Fd2=rs3("codffacd")
Fd3=Formatnumber(rs3("cantffacd"))
Fd4=rs3("UDMINV")
Fd5=rs3("nominv")
fd6=FormatNumber(rs3("uniffacd"))
fd7=FormatNumber(Fd6 * Fd3)
Fd8=rs3("obsffacd")
Fd9=rs3("monffacd")
Fd10=rs3("abrdiv")
if fd9 = 1 then
msg = fd9
msg = ""
else
msg = "U.S."
end if
pdf.Cell 8,4,Fd1,0,0,"L",0
pdf.Cell 20,4,Fd2,0,0,"L",0
pdf.Cell 16,4,Fd3,0,0,"R",0
pdf.Cell 11,4,Fd4,0,0,"L",0
pdf.Cell 90,4,Fd5,0,0,"L",0
pdf.Cell 20,4,"$" & Fd6,0,0,"R",0
pdf.Cell 8,4,msg,0,0,"L",0
pdf.Cell 26,4,"$" & Formatnumber(Fd7),0,0,"R",0
pdf.Ln(4)
rs3.Movenext
loop
pdf.Cell 174,4,"Subtotal:",0,0,"R",0
pdf.Cell 35,4,"$" & FE18,0,0,"R",0
pdf.Ln(4)
pdf.Cell 174,4,"Iva:",0,0,"R",0
pdf.Cell 35,4,"$" & FE19,0,0,"R",0
pdf.Ln(4)
pdf.Cell 174,4,"Total:",0,0,"R",0
pdf.Cell 35,4,"$" & Fe17,0,0,"R",0
pdf.Ln(10)
pdf.Cell 174,4,"Anticipo:",0,0,"R",0
pdf.Cell 35,4,"$" & Fean,0,0,"R",0
pdf.Ln(10)
pdf.Cell 174,4,"Neto a Pagar:",0,0,"R",0
pdf.Cell 35,4,"$" & neto,0,0,"R",0
pdf.Ln(4)
if fd9 = 1 then
nota = fd9
nota = " "
nota2 = " "
nota3 = " "
else
nota = "CONSULTA DE FACTURA"
nota2 = "DOCUMENTO SIN VALOR FISCAL"
end if
pdf.Cell 150,4,nota,0,0,"C",0
pdf.Ln(4)
pdf.Cell 150,4,nota2,0,0,"C",0
pdf.Ln(4)
Call CONVERTIR(neto)
Fd40=Session("valor")
pdf.Ln(4)
pdf.output()
End If
%>