Code Block
Option Explicit
Dim bookmark, i, NumContrato, rsCad, strConx ,rsParc
strConx = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dados\sisad.mdb")
NumContrato = mid(Session("numcontrato"),1,8)
on error resume next
'CADASTRANDO O CONTRATO ------------------------------------------
Set rsCad = Server.CreateObject("ADODB.Recordset")
With rsCad
.Open "SELECT * FROM tb_contratos", strConx, 1, 3, 1
.AddNew
.Fields("cod_contrato") = NumContrato
.Fields("cod_cliente") = Request.Form("cbocliente")
.Fields("cod_servico") = Request.Form("cboservico")
.Fields("cod_responsavel") = Request.Form("cboresponsavel")
.Fields("cod_pagamento") = Request.Form("cbopagamento")
.Fields("cod_servico") = Request.Form("cboservico")
.Fields("cod_forma") = Request.Form("cboforma")
.Fields("qteparcelas_contrato") = Request.Form("txtNumParc")
.Fields("valortotal_contrato") = Request.Form("txtValorContrato")
.Fields("dtaprazoserv_contrato")= Request.Form("txtdtaprz")
.Fields("dtaini_contrato") = Request.Form("txtdtaini")
.Fields("dtafim_contrato") = Request.Form("txtdtafim")
.Fields("detalhamento_contrato")= Request.Form("txtdetalhes")
.Update
bookmark = .absolutePosition
.Requery
.absolutePosition = bookmark
NumContrato = .Fields("cod_contrato") 'Obtém o número do contrato gravado
.Close
End With
Set rsCad = Nothing
'-----------------------------------------------------------------
'CADASTRANDO AS PARCELAS -----------------------------------------
Set rsParc = Server.CreateObject("ADODB.Recordset")
With rsParc
.Open "tb_faturas", strConx, 1, 3, 2
For i=1 to Request.Form("txtNumFatura").Count
.AddNew
.Fields("cod_fatura") = Request.Form("txtNumFatura")(i)
.Fields("cod_contrato") = NumContrato
.Fields("valor_fatura") = Request.Form("txtValorParc")(i)
.Fields("dtaemi_fatura") = Request.Form("txtDtEmis")(i)
.Fields("dtavenc_fatura") = Request.Form("txtDtVenc")(i)
.Fields("dtapg_fatura") = Request.Form("txtDtPag")(i)
.Update
Next
.Close
End With
Set rsParc = Nothing
'-----------------------------------------------------------------
'se houve algum erro, detalha
If err.number>0 then
response.write "Ocorreram os seguintes erros no Script: " & "<P>"
response.write "Erro Numero=" & err.number & "<P>"
response.write "Descricao=" & err.description & "<P>"
response.write "Contexto de Ajuda=" & err.helpcontext & "<P>"
response.write "Caminho de Ajuda=" & err.helppath & "<P>"
response.write "Erro Nativo=" & err.nativeerror & "<P>"
response.write "Fonte=" & err.source & "<P>"
response.write "SQLState=" & err.sqlstate & "<P>"
mensagem = "Erro na Inclusão!"
else
mensagem = "Operação com Sucesso"
end if
%>
<SCRIPT LANGUAGE=javascript>
<!--
alert("<%=mensagem%>");
window.open("inclusao_contratos.asp","_self");
-->
</SCRIPT>