Nenhuma resposta neste tópico

[Creator]

Eu estou tentando imprimir um boleto bancario pela minha loja virtual, mas eu estou com dificuldades, quando eu defino o valor e a data do vencimento do boleto pelo código o boleto da certo mas qdo eu ponho para ele gerar o valor e a data do vencimento de acordo com a compra da erro, estou colocando os dois scripts abaixo o que da certo e o que da errado se alguem puder me ajudar eu agradeco:

---------------SCRIPT QUE DA CERTO--------------------------



<form method="POST" name="boleto" action="http://comercio.loca...to/boleto.comp" target="_blank">
<input type="hidden" name="valor" value="1,00">
<input type="hidden" name="banco" value="bradesco">
<input type="hidden" name="agencia" value="6564">
<input type="hidden" name="codigo_cedente" value="0777447">
<input type="hidden" name="numdoc" value="<%=objPedidos("Cod")%>">
<input type="hidden" name="conta" value="culturacomemocao-bradesco">
<input type="hidden" name="sacado" value="<%=Clientes("Nome")%>">
<input type="hidden" name="cgccpfsac" value="CPF: <%=Clientes("CPF")%>">
<input type="hidden" name="datadoc" value="<%=objPedidos("DataHora")%>">
<input type="hidden" name="vencto" value="12/02/2005">
<input type="hidden" name="instr1" value="Pagável em qualquer banco até a data do Vencimento">
<input type="hidden" name="instr2" value="Cultura com Emoção">
<input type="hidden" name="logoloja" value="http://www.culturaco...ns/logo01.jpg">
<input type="hidden" name="tituloloja" value="Cultura com Emoção">
<input type="hidden" name="botoesboleto" value="1">
<input type="submit" value="Clique para Emitir o Boleto">
</form>

-----------------------------------------------------------------------------------------------------

--------------------------SCRIPT QUE DA ERRADO--------------------------
<%

IDVenda = objPedidos("Cod")

If Len(IDVenda) = 1 Then
IDVenda10 = "000000000" & IDVenda
ElseIf Len(IDVenda) = 2 Then
IDVenda10 = "00000000" & IDVenda
ElseIf Len(IDVenda) = 3 Then
IDVenda10 = "0000000" & IDVenda
ElseIf Len(IDVenda) = 4 Then
IDVenda10 = "000000" & IDVenda
ElseIf Len(IDVenda) = 5 Then
IDVenda10 = "00000" & IDVenda
ElseIf Len(IDVenda) = 6 Then
IDVenda10 = "0000" & IDVenda
ElseIf Len(IDVenda) = 7 Then
IDVenda10 = "000" & IDVenda
ElseIf Len(IDVenda) = 8 Then
IDVenda10 = "00" & IDVenda
ElseIf Len(IDVenda) = 9 Then
IDVenda10 = "0" & IDVenda
End If

vVencimentoFormatado = 5

vVencimento = DateAdd("d",vDiasVencimento,date())
vDiaV = Day(vVencimento)
vMesV = Month(vVencimento)
vAnoV = Year(vVencimento)

If Len(vDiav) = 1 Then
vDiaV = "0" & vDiaV
End If

If Len(vMesV) = 1 Then
vMesV = "0" & vMesV
End If

vVencimentoFormatado = vDiaV & vMesV & vAnoV

Dim ValorNumerico
ValorNumerico = Replace(Replace(FormatNumber(FormatCurrency(SomaTotal("SomaTotal") + SomaFrete("SomaFrete") + VarValorBase)),",",""),".","")

%>

<form method="POST" name="boleto" action="http://comercio.loca...to/boleto.comp" target="_blank">
<input type="hidden" name="valor" value="<%=ValorNumerico%>">
<input type="hidden" name="banco" value="bradesco">
<input type="hidden" name="agencia" value="6564">
<input type="hidden" name="codigo_cedente" value="0777447">
<input type="hidden" name="numdoc" value="<%=objPedidos("Cod")%>">
<input type="hidden" name="conta" value="culturacomemocao-bradesco">
<input type="hidden" name="sacado" value="<%=Clientes("Nome")%>">
<input type="hidden" name="cgccpfsac" value="CPF: <%=Clientes("CPF")%>">
<input type="hidden" name="datadoc" value="<%=objPedidos("DataHora")%>">
<input type="hidden" name="vencto" value="<%=vVencimentoFormatado%>">
<input type="hidden" name="instr1" value="Pagável em qualquer banco até a data do Vencimento">
<input type="hidden" name="instr2" value="Cultura com Emoção">
<input type="hidden" name="logoloja" value="http://www.culturaco...ns/logo01.jpg">
<input type="hidden" name="tituloloja" value="Cultura com Emoção">
<input type="hidden" name="botoesboleto" value="1">
<input type="submit" value="Clique para Emitir o Boleto">
</form>

---------------------------------------------------------------

POR FAVOR SE ALGUEM PUDER ME AJUDAR ME AJUDE POR FAVORRRR EU PRECISO ARRUMA ESSE SCRIPT!!!

Edição feita por: Creator, 17/01/2006, 15:32.