<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wID_Empresa=request.item("ID_Empresa") wID_Plano=request.item("Plano") wQuantidade=request.item("Quantidade") SQL= "SELECT ID, Nome FROM EMPRESAS WHERE ID = " & wID_Empresa Set TabEmpresa = Database.Execute(SQL) SQL= "SELECT ID, DESCRICAO, VLR_MENSAL FROM PLANOS WHERE ID = " & wID_Plano Set TabPlanos = Database.Execute(SQL) wValor= CCur(wQuantidade) * CCur(TabPlanos("VLR_MENSAL")) wFatura=Numera("FAT") SQL= " INSERT INTO EMPRESAS_FATURAS (FATURA, ID_EMPRESA, ID_PLANO, DT_VENCIMENTO, VALOR, VL_PLANO, DT_EMISSAO, " SQL= SQL & " QUANTIDADE, QT_SORTEIO, CA_USUARIO) " SQL= SQL & " VALUES (" SQL= SQL & wFatura & "," & wID_Empresa & "," & wID_PLANO & ", (CURRENT_DATE+10), " & FormatarValor(wValor) & "," & FormatarValor(TabPlanos("VLR_MENSAL")) & "," SQL= SQL & " CURRENT_DATE, " & wQuantidade & ", 1, 'Site'" SQL= SQL & " )" Set TabFatura = Database.Execute(SQL) %>
Solicitar Tickets - Fatura
Clique no link abaixo para imprimir o boleto.
Após
o pagamento do Boleto você estará recebendo seus tickets por e-mail.
Dados da Fatura
Empresa
:
<%=TabEmpresa("Nome")%>
Plano
:
<%=TabPlanos("Descricao")%>
Quantidade
:
<%=wQuantidade%>
Valor
:
0,00
Imprimir Fatura