Public Sub inserirNota()
blDlBt(False)
Dim transacao As FbTransaction = Nothing
Dim conectaBD As New ComunicaReg()
Dim limpaTexto As String = String.Empty
Dim tempCNPJ As String = String.Empty
Dim tempRAZAO As String = String.Empty
Dim codPart As String = String.Empty
Dim QtdNT As Integer, notaId As Integer, idNotaItem As Integer, resultadoID As Integer, resultadoNNF As Integer
Dim tempOP As Integer = 0
Dim util As New Utilitarios()
tempRAZAO = TextBox2.Text
tempCNPJ = TextBox3.Text
Dim qtdNotas As String = String.Empty
qtdNotas = TextBox4.Text
codPart = TextBox1.Text
If (btEntrada.Checked() <> True) Then
tempOP = 1
End If
If (codPart = "0") OrElse (codPart = "") Then
MessageBox.Show("O campo 'Cód. Part.' não aceita '0' ou vazio ' '")
End If
If (qtdNotas = "0") OrElse (qtdNotas = "") Then
MessageBox.Show("O campo 'Qtd. Notas' não aceita '0' ou vazio ' '")
ElseIf (codPart <> "") AndAlso (qtdNotas <> "") Then
QtdNT = Integer.Parse(qtdNotas)
Dim fbConn As New FbConnection(conectaBD.stringConexao())
Dim fbComm As New FbCommand("ASS_NOTAS", fbConn)
Try
'abre conexao
fbConn.Open()
'cria uma transacao
transacao = fbConn.BeginTransaction()
'adiciona a transacao a conexao
fbComm.Transaction = transacao
'adiciona a conexao ao comando
fbComm.Connection = fbConn
'seta o tipo do comanao
fbComm.CommandType = CommandType.StoredProcedure
'seta o valor do ultimo(MAX) id do banco
resultadoID = util.ultimoID
'seta o valor do ultimo(MAX) NNF
resultadoNNF = util.ultimoNNF
'seta o valor do ultimo(MAX) intem de nota presente no banco
idNotaItem = util.idNotaItens
notaId = util.notaID
Dim cfop As New Double
Dim entrada = 0
If tempOP <> 0 Then
'CFOP: Código Fiscal de Operações e Prestações.
cfop = 5102
entrada = 1
Else
cfop = 1102
End If
For i As Integer = 0 To QtdNT - 1
resultadoID = resultadoID + 1
resultadoNNF = resultadoNNF + 1
idNotaItem = idNotaItem + 1
notaId = notaId + 1
fbComm.Parameters.Clear()
fbComm.Parameters.AddWithValue("@ID", resultadoID)
'ID: CODIGO SEQUENCIAL. USADO PARA REFERENCIAR TABELA [NOTAS_ITENS].
fbComm.Parameters.AddWithValue("@TIPO", entrada)
'TIPO: Tipo de Operação: 0-entrada / 1-saída.
fbComm.Parameters.AddWithValue("@CFOP", cfop)
'CFOP: Código Fiscal de Operações e Prestações. Utilizar Tabela de CFOP.
fbComm.Parameters.AddWithValue("@IDE_CODSIT", "00")
'IDE_CODSIT: Tabela Situação do Documento.
fbComm.Parameters.AddWithValue("@IDE_INDPAG", 1)
'IDE_INDPAG: CODIGO SEQUENCIAL. USADO PARA REFERENCIAR TABELA [NOTAS_ITENS].
fbComm.Parameters.AddWithValue("@IDE_MOD", "01")
'IDE_MOD: Tabela Documentos Fiscais do ICMS.
fbComm.Parameters.AddWithValue("@IDE_SERIE", "0")
'IDE_SERIE: Tabela Documentos Fiscais do ICMS hipótese de a NF-e não possuir série.
fbComm.Parameters.AddWithValue("@IDE_NNF", resultadoNNF)
'IDE_NNF: Número do Documento Fiscal.
fbComm.Parameters.AddWithValue("@IDE_DEMI", "11.01.2011")
'IDE_DEMI: Data de emissão do Documento Fiscal.
fbComm.Parameters.AddWithValue("@IDE_DSAIENT", "26.01.2011")
'IDE_DSAIENT: Data de emissão do Documento Fiscal.
fbComm.Parameters.AddWithValue("@IDE_HSAIENT", "00:00:00")
'IDE_HSAIENT: Hora de Saída ou da Entrada da Mercadoria/Produto.
fbComm.Parameters.AddWithValue("@IDE_CMUNFG", 1500602)
'IDE_CMUNFG: Código do Município de Ocorrência do Fato Gerador.
fbComm.Parameters.AddWithValue("@IDE_CHNFE", "")
'IDE_CHNFE: CHAVE DA NF-E. CASO O REGISTRO FOR REFERENTE A NFE. DEIXAR NULL SE FOR MODELO 1/1A.
fbComm.Parameters.AddWithValue("@IDE_CHCTE", "")
'IDE_CHCTE: CHAVE DO CONHECIMENTO DE TRANSPORTE ELETRONICO.
'tempN = Integer.Parse(codPart)
fbComm.Parameters.AddWithValue("@DESTEMIT_CODIGO", codPart)
'DESTEMIT_CODIGO: CODIGO DO DESTINATARIO/EMITENTE DA NOTA.
fbComm.Parameters.AddWithValue("@DESTEMIT_CNPJCPF", tempCNPJ)
'DESTEMIT_CNPJCPF: CPF do REMETENTE/RECEBEDOR.
fbComm.Parameters.AddWithValue("@DESTEMIT_XNOME", tempRAZAO)
'DESTEMIT_XNOME: Razão Social ou Nome.
fbComm.Parameters.AddWithValue("@DESTEMIT_XFANT", "ORTOBOM")
'DESTEMIT_XFANT: Nome fantasia.
fbComm.Parameters.AddWithValue("@DESTEMIT_XLGR", "ROD. BR 316")
'DESTEMIT_XLGR: Logradouro.
fbComm.Parameters.AddWithValue("@DESTEMIT_NRO", "S/N§")
'DESTEMIT_NRO: Numero.
fbComm.Parameters.AddWithValue("@DESTEMIT_XCLP", "KM 10")
'DESTEMIT_XCLP: Completo.
fbComm.Parameters.AddWithValue("@DESTEMIT_XBAIRRO", "SÇO JOAO")
'DESTEMIT_XBAIRRO: Bairro.
fbComm.Parameters.AddWithValue("@DESTEMIT_CMUN", 1504422)
'DESTEMIT_CMUN: Código do município. Utilizar a Tabela do IBGE
fbComm.Parameters.AddWithValue("@DESTEMIT_XMUN", "MARITUBA")
'DESTEMIT_XMUN: Nome do município.
fbComm.Parameters.AddWithValue("@DESTEMIT_UF", "PA")
'DESTEMIT_UF: Sigla UF.
fbComm.Parameters.AddWithValue("@DESTEMIT_CEP", "67200000")
'DESTEMIT_CEP: Código de Endereçamento Postal.
fbComm.Parameters.AddWithValue("@DESTEMIT_CPAIS", 1058)
'DESTEMIT_CPAIS: Codigo do País.
fbComm.Parameters.AddWithValue("@DESTEMIT_XPAIS", "BRASIL")
'DESTEMIT_XPAIS: Nome do País.
fbComm.Parameters.AddWithValue("@DESTEMIT_FONE", "")
'DESTEMIT_FONE: Telefone.
fbComm.Parameters.AddWithValue("@DESTEMIT_IE", "151973164")
'DESTEMIT_IE: Inscricao Estadual.
fbComm.Parameters.AddWithValue("@DESTEMIT_IEST", "")
'DESTEMIT_IEST: IE do Substituto Tributário.
fbComm.Parameters.AddWithValue("@DESTEMIT_IM", "")
'DESTEMIT_IM: Inscrição Municipal.
fbComm.Parameters.AddWithValue("@DESTEMIT_CNAE", "")
'DESTEMIT_CNAE: CNAE fiscal. Este campo deve ser informado quando o campo IM for informado.
fbComm.Parameters.AddWithValue("@DESTEMIT_CRT", 0)
'DESTEMIT_CRT: Código de Regime Tributário.
fbComm.Parameters.AddWithValue("@DESTEMIT_ISUF", "")
'DESTEMIT_ISUF: Inscrição na SUFRAMA.
fbComm.Parameters.AddWithValue("@DESTEMIT_EMAIL", "")
'DESTEMIT_EMAIL: Endereço do correio eletrônico.
fbComm.Parameters.AddWithValue("@TRANSP_CODIGO", 0)
'TRANSP_CODIGO: Codigo da Transportadora.
fbComm.Parameters.AddWithValue("@TRANSP_MODFRETE", 9)
'TRANSP_MODFRETE: Modalidade do frete.
fbComm.Parameters.AddWithValue("@TRANSP_CNPJCPF", "")
'TRANSP_CNPJCPF: Informar o CNPJ ou o CPF do Transportador.
fbComm.Parameters.AddWithValue("@TRANSP_XNOME", "")
'TRANSP_XNOME: Razão Social ou nome.
fbComm.Parameters.AddWithValue("@TRANSP_IE", "")
'TRANSP_IE: Inscrição Estadual. Informar a IE quando o transportador for contribuinte do ICMS.
fbComm.Parameters.AddWithValue("@TRANSP_XBAIRRO", "")
'TRANSP_XBAIRRO: Nome do Bairro.
fbComm.Parameters.AddWithValue("@TRANSP_XLGR", "")
'TRANSP_XLGR: Nome do Logradouro.
fbComm.Parameters.AddWithValue("@TRANSP_CPAIS", 1058)
'TRANSP_CPAIS: Codigo do Pais.
fbComm.Parameters.AddWithValue("@TRANSP_CMUN", 0)
'TRANSP_CMUN: Código do Município do Transportador.
fbComm.Parameters.AddWithValue("@TRANSP_XMUN", "")
'TRANSP_XMUN: Descricao do Municipio do Transportador.
fbComm.Parameters.AddWithValue("@TRANSP_NRO", 0)
'TRANSP_NRO: Número.
fbComm.Parameters.AddWithValue("@TRANSP_UF", "")
'TRANSP_UF: Sigla UF.
fbComm.Parameters.AddWithValue("@TRANSP_PLACA", "")
'TRANSP_PLACA: Placa do Veículo.
fbComm.Parameters.AddWithValue("@TRANSP_RNTC", "")
'TRANSP_RNTC: Registro Nacional de Transportador de Carga (ANTT).
fbComm.Parameters.AddWithValue("@TRANSP_QVOL", 0)
'TRANSP_QVOL: Quantidade de volumes transportados.
fbComm.Parameters.AddWithValue("@TRANSP_ESP", "")
'TRANSP_ESP: Espécie dos volumes transportados.
fbComm.Parameters.AddWithValue("@TRANSP_MARCA", "")
'TRANSP_MARCA: Marca dos volumes transportados.
fbComm.Parameters.AddWithValue("@TRANSP_NVOL", "")
'TRANSP_NVOL: Numeração dos volumes transportados.
fbComm.Parameters.AddWithValue("@TRANSP_PESOL", 0.0)
'TRANSP_PESOL: Peso Líquido (em kg).
fbComm.Parameters.AddWithValue("@TRANSP_PESOB", 0.0)
'TRANSP_PESOB: Peso Bruto (em kg).
fbComm.Parameters.AddWithValue("@TOTAL_VBC", 544.1)
'TOTAL_VBC: Base de Cálculo do ICMS
fbComm.Parameters.AddWithValue("@TOTAL_VICMS", 92.49)
'TOTAL_VICMS: Valor Total do ICMS
fbComm.Parameters.AddWithValue("@TOTAL_VBCST", 0.0)
'TOTAL_VBCST: Base de Cálculo do ICMS ST
fbComm.Parameters.AddWithValue("@TOTAL_VST", 0.0)
'TOTAL_VST: Valor Total do ICMS ST
fbComm.Parameters.AddWithValue("@TOTAL_VPROD", 544.1)
'TOTAL_VPROD: Valor Total dos produtos (C100) ou da prestação de serviços (D100, D500)
fbComm.Parameters.AddWithValue("@TOTAL_VFRETE", 0.0)
'TOTAL_VFRETE: Valor Total do Frete.
fbComm.Parameters.AddWithValue("@TOTAL_VSEG", 0.0)
'TOTAL_VSEG: Valor Total do Seguro.
fbComm.Parameters.AddWithValue("@TOTAL_VDESC", 0.0)
'TOTAL_VDESC: Valor Total do Desconto.
fbComm.Parameters.AddWithValue("@TOTAL_VII", 0.0)
'TOTAL_VII: Valor Total do II.
fbComm.Parameters.AddWithValue("@TOTAL_VIPI", 0.0)
'TOTAL_VIPI: Valor Total do IPI.
fbComm.Parameters.AddWithValue("@TOTAL_VPIS", 0.0)
'TOTAL_VPIS: Valor do PIS.
fbComm.Parameters.AddWithValue("@TOTAL_VCOFINS", 0.0)
'TOTAL_VCOFINS: Valor do COFINS.
fbComm.Parameters.AddWithValue("@TOTAL_VOUTRO", 0.0)
'TOTAL_VOUTRO: Outras Despesas acessórias.
fbComm.Parameters.AddWithValue("@TOTAL_VNF", 544.1)
'TOTAL_VNF: Valor Total da NF.
fbComm.Parameters.AddWithValue("@NFREF_REFNF", "")
'NFREF_REFNF: Numero da NF referenciada.
fbComm.Parameters.AddWithValue("@REFECF_MOD", "")
'REFECF_MOD: Informações do Cupom Fiscal referenciado / Modelo do Documento Fiscal.
fbComm.Parameters.AddWithValue("@REFECF_NECF", 0)
'REFECF_NECF: Informações do Cupom Fiscal referenciado / Número de ordem seqüencial do ECF.
fbComm.Parameters.AddWithValue("@REFECF_NCOO", 0)
'REFECF_NCOO: Número do Contador de Ordem de Operação - COO.
fbComm.Parameters.AddWithValue("@REFECF_TPIMP", 1)
'REFECF_TPIMP: Formato de Impressão. 1-Retrato/ 2-Paisagem.
fbComm.Parameters.AddWithValue("@REFECF_TPEMIS", 1)
'REFECF_TPEMIS: Tipo de Emissão da NF.
fbComm.Parameters.AddWithValue("@REFECF_CDV", 0)
'REFECF_CDV: Dígito Verificador da Chave de Acesso da NF-e.
fbComm.Parameters.AddWithValue("@REFECF_TPAMB", 1)
'REFECF_TPAMB: Identificação do Ambiente. 1-Produção/ 2-Homologação.
fbComm.Parameters.AddWithValue("@REFECF_FINNFE", 0)
'REFECF_FINNFE: Finalidade de emissão da NFe.
fbComm.Parameters.AddWithValue("@REFECF_PROCEMI", 0)
'REFECF_PROCEMI: Identificador do processo de emissão da NF-e.
fbComm.Parameters.AddWithValue("@REFECF_VERPROC", "1.10")
'REFECF_VERPROC: Identificador da versão do processo de emissão (informar a versão do aplicativo emissor de NF-e).
fbComm.Parameters.AddWithValue("@REFECF_DHCONT", "01.01.1753")
'REFECF_DHCONT: Data e Hora da entrada em contingência.
fbComm.Parameters.AddWithValue("@REFECF_XJUST", "")
'REFECF_XJUST: Justificativa da entrada em contingência.
fbComm.Parameters.AddWithValue("@FAT_INDTIT", Nothing)
'FAT_INDTIT: Indicador do tipo de titulo de credito (apenas para NFs 1/1A).
fbComm.Parameters.AddWithValue("@IDE_CODCONS", Nothing)
'IDE_CODCONS: Código de classe de consumo de energia elétrica ou gás.
fbComm.Parameters.AddWithValue("@IDE_INDEMIT", Nothing)
'IDE_INDEMIT: Indicador do emitente do documento fiscal: 0- Emissão própria / 1- Terceiros.
fbComm.ExecuteNonQuery()
'NOTAS_ITENS
Dim fbComm1 As New FbCommand()
fbComm1.CommandType = CommandType.StoredProcedure
fbComm1.Transaction = transacao
fbComm1.CommandText = "ASS_NOTAS_ITENS"
fbComm1.Connection = fbConn
'ITEM 1
fbComm1.Parameters.Clear()
fbComm1.Parameters.AddWithValue("@ID", System.Threading.Interlocked.Increment(idNotaItem))
'ID: CODIGO SEQUENCIAL.
fbComm1.Parameters.AddWithValue("@NOTA_ID", resultadoID)
'NOTA_ID: REFERE-SE AO [NOTAS].[ID], VINCULANDO OS DADOS. MESTRE/DETALHE.
fbComm1.Parameters.AddWithValue("@CPROD", "0000000005557")
'CPROD: Código do produto
fbComm1.Parameters.AddWithValue("@CEAN", "0000000005557")
'CEAN: GTIN (Global Trade Item Number) do produto, antigo código EAN ou código de barras.
fbComm1.Parameters.AddWithValue("@XPROD", "COLCHAO ORTOBOM D-45 PHYSICAL 138X20..............")
'XPROD: Descrição do produto.
fbComm1.Parameters.AddWithValue("@NCM", "")
'NCM: Código NCM com 8 dígitos ou 2 dígitos (gênero).
fbComm1.Parameters.AddWithValue("@CFOP", cfop) 'CFOP: Código Fiscal de Operações e Prestações.
fbComm1.Parameters.AddWithValue("@UCOM", "UN")
'UCOM: Informar a unidade de comercialização do produto.
fbComm1.Parameters.AddWithValue("@QCOM", 1)
'QCOM: Informar a quantidade de comercialização do produto.
fbComm1.Parameters.AddWithValue("@VUNCOM", 0)
'VUNCOM: Informar o valor unitário de comercialização do produto.
fbComm1.Parameters.AddWithValue("@VPROD", 246.61)
'VPROD: Valor Total Bruto dos Produtos.
fbComm1.Parameters.AddWithValue("@VFRETE", 0)
'VFRETE: Valor Total do Frete.
fbComm1.Parameters.AddWithValue("@VSEG", 0)
'VSEG: Valor Total do Seguro.
fbComm1.Parameters.AddWithValue("@VDESC", 0)
'VDESC: Valor do Desconto.
fbComm1.Parameters.AddWithValue("@VOUTRO", 0)
'VOUTRO: Outras despesas acessórias.
fbComm1.Parameters.AddWithValue("@CST_ICMS", "00")
'CST_ICMS: CODIGO DE SITUACAO TRIBUTARIA. Tributação do ICMS.
fbComm1.Parameters.AddWithValue("@CST_PIS", "01")
'CST_PIS: CODIGO DE SITUACAO TRIBUTARIA. Tributação do PIS.
fbComm1.Parameters.AddWithValue("@CST_COFINS", "01")
'CST_COFINS: CODIGO DE SITUACAO TRIBUTARIA. Tributação do COFINS.
fbComm1.Parameters.AddWithValue("@CST_IPI", "99")
'CST_IPI: CODIGO DE SITUACAO TRIBUTARIA. Tributação do IPI.
fbComm1.Parameters.AddWithValue("@DI_NDI", "")
'DI_NDI: Número do Documento de Importação DI/DSI/DA.
fbComm1.Parameters.AddWithValue("@DI_DDI", "01.01.1753")
'DI_DDI: Data de Registro da DI/DSI/DA.
fbComm1.Parameters.AddWithValue("@DI_XLOCDESEMB", "")
'DI_XLOCDESEMB: Local de desembaraço.
fbComm1.Parameters.AddWithValue("@DI_UFDESEMB", "")
'DI_UFDESEMB: Sigla da UF onde ocorreu o Desembaraço Aduaneiro.
fbComm1.Parameters.AddWithValue("@DI_CEXPORTADOR", "")
'DI_CEXPORTADOR: Código do exportador.
fbComm1.Parameters.AddWithValue("@ORIG", 0)
'ORIG: Origem da mercadoria: 0 – Nacional; 1 – Estrangeira; 2 – Estrangeira;
fbComm1.Parameters.AddWithValue("@VBC", 246.61)
'VBC: Valor da BC do ICMS.
fbComm1.Parameters.AddWithValue("@PICMS", 17.0)
'PICMS: Alíquota do imposto.
fbComm1.Parameters.AddWithValue("@VICMS", 41.92)
'VICMS: Valor do ICMS.
fbComm1.Parameters.AddWithValue("@VBCST", Nothing)
'VBCST: Valor da BC do ICMS ST.
fbComm1.Parameters.AddWithValue("@PICMSST", Nothing)
'PICMSST: Alíquota do imposto do ICMS ST.
fbComm1.Parameters.AddWithValue("@VICMSST", Nothing)
'VICMSST: Valor do ICMS ST retido.
fbComm1.Parameters.AddWithValue("@MODBC", 0)
'MODBC: Modalidade de determinação da BC do ICMS.
fbComm1.Parameters.AddWithValue("@MODBCST", Nothing)
'MODBCST: Modalidade de determinação da BC do ICMS ST.
fbComm1.Parameters.AddWithValue("@PCOFINS", Nothing)
'PCOFINS: Alíquota da COFINS (em percentual).
fbComm1.Parameters.AddWithValue("@VCOFINS", Nothing)
'VCOFINS: Valor da COFINS.
fbComm1.Parameters.AddWithValue("@PIPI", 0)
'PIPI: Alíquota do IPI.
fbComm1.Parameters.AddWithValue("@VIPI", 0)
'VIPI: Valor do IPI.
fbComm1.Parameters.AddWithValue("@PPIS", Nothing)
'PPIS: Alíquota do PIS (em percentual).
fbComm1.Parameters.AddWithValue("@VPIS", Nothing)
'VPIS: Valor do PIS.
fbComm1.Parameters.AddWithValue("@PMVAST", Nothing)
'PMVAST:Percentual da margem de valor Adicionado do ICMS ST.
fbComm1.Parameters.AddWithValue("@PREDBCST", Nothing)
'PREDBCST: Percentual da Redução de BC do ICMS ST.
fbComm1.Parameters.AddWithValue("@PREDBC", Nothing)
'PREDBC: Percentual da Redução de BC.
fbComm1.Parameters.AddWithValue("@MODDESICMS", Nothing)
'MODDESICMS: Este campo será preenchido quando o campo [VICMS] estiver preenchido.
fbComm1.Parameters.AddWithValue("@VBCSTRET", Nothing)
'VBCSTRET: Valor da BC do ICMS ST cobrado anteriormente por ST.
fbComm1.Parameters.AddWithValue("@VICMSSTRET", Nothing)
'VICMSSTRET: Valor do ICMS ST cobrado anteriormente por ST.
fbComm1.Parameters.AddWithValue("@QBCPROD", Nothing)
'QBCPROD: Quantidade Vendida.
fbComm1.Parameters.AddWithValue("@VALIQPROD", Nothing)
'VALIQPROD: Alíquota da COFINS (em reais).
fbComm1.ExecuteNonQuery()
'ITEM2
fbComm1.Parameters.Clear()
fbComm1.Parameters.AddWithValue("@ID", System.Threading.Interlocked.Increment(idNotaItem))
'ID: CODIGO SEQUENCIAL.
fbComm1.Parameters.AddWithValue("@NOTA_ID", resultadoID)
'NOTA_ID: REFERE-SE AO [NOTAS].[ID], VINCULANDO OS DADOS. MESTRE/DETALHE.
fbComm1.Parameters.AddWithValue("@CPROD", "0000000009266")
'CPROD: Código do produto
fbComm1.Parameters.AddWithValue("@CEAN", "0000000009266")
'CEAN: GTIN (Global Trade Item Number) do produto, antigo código EAN ou código de barras.
fbComm1.Parameters.AddWithValue("@XPROD", "COLCHAO ORTOBOM D-33 LIGHT SELADO 88X17...........")
'XPROD: Descrição do produto.
fbComm1.Parameters.AddWithValue("@NCM", "")
'NCM: Código NCM com 8 dígitos ou 2 dígitos (gênero).
'CFOP: Código Fiscal de Operações e Prestações.
fbComm1.Parameters.AddWithValue("@CFOP", cfop)
fbComm1.Parameters.AddWithValue("@UCOM", "UN")
'UCOM: Informar a unidade de comercialização do produto.
fbComm1.Parameters.AddWithValue("@QCOM", 1)
'QCOM: Informar a quantidade de comercialização do produto.
fbComm1.Parameters.AddWithValue("@VUNCOM", 0)
'VUNCOM: Informar o valor unitário de comercialização do produto.
fbComm1.Parameters.AddWithValue("@VPROD", 100.29)
'VPROD: Valor Total Bruto dos Produtos.
fbComm1.Parameters.AddWithValue("@VFRETE", 0)
'VFRETE: Valor Total do Frete.
fbComm1.Parameters.AddWithValue("@VSEG", 0)
'VSEG: Valor Total do Seguro.
fbComm1.Parameters.AddWithValue("@VDESC", 0)
'VDESC: Valor do Desconto.
fbComm1.Parameters.AddWithValue("@VOUTRO", 0)
'VOUTRO: Outras despesas acessórias.
fbComm1.Parameters.AddWithValue("@CST_ICMS", "00")
'CST_ICMS: CODIGO DE SITUACAO TRIBUTARIA. Tributação do ICMS.
fbComm1.Parameters.AddWithValue("@CST_PIS", "01")
'CST_PIS: CODIGO DE SITUACAO TRIBUTARIA. Tributação do PIS.
fbComm1.Parameters.AddWithValue("@CST_COFINS", "01")
'CST_COFINS: CODIGO DE SITUACAO TRIBUTARIA. Tributação do COFINS.
fbComm1.Parameters.AddWithValue("@CST_IPI", "99")
'CST_IPI: CODIGO DE SITUACAO TRIBUTARIA. Tributação do IPI.
fbComm1.Parameters.AddWithValue("@DI_NDI", "")
'DI_NDI: Número do Documento de Importação DI/DSI/DA.
fbComm1.Parameters.AddWithValue("@DI_DDI", "01/01/1753")
'DI_DDI: Data de Registro da DI/DSI/DA.
fbComm1.Parameters.AddWithValue("@DI_XLOCDESEMB", "")
'DI_XLOCDESEMB: Local de desembaraço.
fbComm1.Parameters.AddWithValue("@DI_UFDESEMB", "")
'DI_UFDESEMB: Sigla da UF onde ocorreu o Desembaraço Aduaneiro.
fbComm1.Parameters.AddWithValue("@DI_CEXPORTADOR", "")
'DI_CEXPORTADOR: Código do exportador.
fbComm1.Parameters.AddWithValue("@ORIG", 0)
'ORIG: Origem da mercadoria: 0 – Nacional; 1 – Estrangeira; 2 – Estrangeira;
fbComm1.Parameters.AddWithValue("@VBC", 100.29)
'VBC: Valor da BC do ICMS.
fbComm1.Parameters.AddWithValue("@PICMS", 17)
'PICMS: Alíquota do imposto.
fbComm1.Parameters.AddWithValue("@VICMS", 17.05)
'VICMS: Valor do ICMS.
fbComm1.Parameters.AddWithValue("@VBCST", Nothing)
' //VBCST: Valor da BC do ICMS ST.
fbComm1.Parameters.AddWithValue("@PICMSST", Nothing)
'PICMSST: Alíquota do imposto do ICMS ST.
fbComm1.Parameters.AddWithValue("@VICMSST", Nothing)
'VICMSST: Valor do ICMS ST retido.
fbComm1.Parameters.AddWithValue("@MODBC", 0)
'MODBC: Modalidade de determinação da BC do ICMS.
fbComm1.Parameters.AddWithValue("@MODBCST", Nothing)
'MODBCST: Modalidade de determinação da BC do ICMS ST.
fbComm1.Parameters.AddWithValue("@PCOFINS", Nothing)
'PCOFINS: Alíquota da COFINS (em percentual).
fbComm1.Parameters.AddWithValue("@VCOFINS", Nothing)
'VCOFINS: Valor da COFINS.
fbComm1.Parameters.AddWithValue("@PIPI", 0)
'PIPI: Alíquota do IPI.
fbComm1.Parameters.AddWithValue("@VIPI", 0)
'VIPI: Valor do IPI.
fbComm1.Parameters.AddWithValue("@PPIS", 65)
'PPIS: Alíquota do PIS (em percentual).
fbComm1.Parameters.AddWithValue("@VPIS", 120000)
'VPIS: Valor do PIS.
fbComm1.Parameters.AddWithValue("@PMVAST", Nothing)
'PMVAST:Percentual da margem de valor Adicionado do ICMS ST.
fbComm1.Parameters.AddWithValue("@PREDBCST", Nothing)
'PREDBCST: Percentual da Redução de BC do ICMS ST.
fbComm1.Parameters.AddWithValue("@PREDBC", Nothing)
'PREDBC: Percentual da Redução de BC.
fbComm1.Parameters.AddWithValue("@MODDESICMS", Nothing)
'MODDESICMS: Este campo será preenchido quando o campo [VICMS] estiver preenchido.
fbComm1.Parameters.AddWithValue("@VBCSTRET", Nothing)
'VBCSTRET: Valor da BC do ICMS ST cobrado anteriormente por ST.
fbComm1.Parameters.AddWithValue("@VICMSSTRET", Nothing)
'VICMSSTRET: Valor do ICMS ST cobrado anteriormente por ST.
fbComm1.Parameters.AddWithValue("@QBCPROD", Nothing)
'QBCPROD: Quantidade Vendida.
fbComm1.Parameters.AddWithValue("@VALIQPROD", Nothing)
'VALIQPROD: Alíquota da COFINS (em reais).
fbComm1.ExecuteNonQuery()
'ITEM3
fbComm1.Parameters.Clear()
fbComm1.Parameters.AddWithValue("@ID", System.Threading.Interlocked.Increment(idNotaItem))
'ID: CODIGO SEQUENCIAL.
fbComm1.Parameters.AddWithValue("@NOTA_ID", resultadoID)
'NOTA_ID: REFERE-SE AO [NOTAS].[ID], VINCULANDO OS DADOS. MESTRE/DETALHE.
fbComm1.Parameters.AddWithValue("@CPROD", "0000000008303")
'CPROD: Código do produto
fbComm1.Parameters.AddWithValue("@CEAN", "0000000008303")
'CEAN: GTIN (Global Trade Item Number) do produto, antigo código EAN ou código de barras.
fbComm1.Parameters.AddWithValue("@XPROD", "BOX ORTOBOM UNION ESPUMA 88X43....................")
'XPROD: Descrição do produto.
fbComm1.Parameters.AddWithValue("@NCM", "")
'NCM: Código NCM com 8 dígitos ou 2 dígitos (gênero).
'CFOP: Código Fiscal de Operações e Prestações.
fbComm1.Parameters.AddWithValue("@CFOP", cfop)
fbComm1.Parameters.AddWithValue("@UCOM", "UN")
'UCOM: Informar a unidade de comercialização do produto.
fbComm1.Parameters.AddWithValue("@QCOM", 1)
'QCOM: Informar a quantidade de comercialização do produto.
fbComm1.Parameters.AddWithValue("@VUNCOM", 0)
'VUNCOM: Informar o valor unitário de comercialização do produto.
fbComm1.Parameters.AddWithValue("@VPROD", 197.2)
'VPROD: Valor Total Bruto dos Produtos.
fbComm1.Parameters.AddWithValue("@VFRETE", 0)
'VFRETE: Valor Total do Frete.
fbComm1.Parameters.AddWithValue("@VSEG", 0)
'VSEG: Valor Total do Seguro.
fbComm1.Parameters.AddWithValue("@VDESC", 0)
'VDESC: Valor do Desconto.
fbComm1.Parameters.AddWithValue("@VOUTRO", 0)
'VOUTRO: Outras despesas acessórias.
fbComm1.Parameters.AddWithValue("@CST_ICMS", "00")
'CST_ICMS: CODIGO DE SITUACAO TRIBUTARIA. Tributação do ICMS.
fbComm1.Parameters.AddWithValue("@CST_PIS", "01")
'CST_PIS: CODIGO DE SITUACAO TRIBUTARIA. Tributação do PIS.
fbComm1.Parameters.AddWithValue("@CST_COFINS", "01")
'CST_COFINS: CODIGO DE SITUACAO TRIBUTARIA. Tributação do COFINS.
fbComm1.Parameters.AddWithValue("@CST_IPI", "99")
'CST_IPI: CODIGO DE SITUACAO TRIBUTARIA. Tributação do IPI.
fbComm1.Parameters.AddWithValue("@DI_NDI", "")
'DI_NDI: Número do Documento de Importação DI/DSI/DA.
fbComm1.Parameters.AddWithValue("@DI_DDI", "01/01/1753")
'DI_DDI: Data de Registro da DI/DSI/DA.
fbComm1.Parameters.AddWithValue("@DI_XLOCDESEMB", "")
'DI_XLOCDESEMB: Local de desembaraço.
fbComm1.Parameters.AddWithValue("@DI_UFDESEMB", "")
'DI_UFDESEMB: Sigla da UF onde ocorreu o Desembaraço Aduaneiro.
fbComm1.Parameters.AddWithValue("@DI_CEXPORTADOR", "")
'DI_CEXPORTADOR: Código do exportador.
fbComm1.Parameters.AddWithValue("@ORIG", 0)
'ORIG: Origem da mercadoria: 0 – Nacional; 1 – Estrangeira; 2 – Estrangeira;
fbComm1.Parameters.AddWithValue("@VBC", 197.2)
'VBC: Valor da BC do ICMS.
fbComm1.Parameters.AddWithValue("@PICMS", 17)
'PICMS: Alíquota do imposto.
fbComm1.Parameters.AddWithValue("@VICMS", 33.52)
'VICMS: Valor do ICMS.
fbComm1.Parameters.AddWithValue("@VBCST", Nothing)
' //VBCST: Valor da BC do ICMS ST.
fbComm1.Parameters.AddWithValue("@PICMSST", Nothing)
'PICMSST: Alíquota do imposto do ICMS ST.
fbComm1.Parameters.AddWithValue("@VICMSST", Nothing)
'VICMSST: Valor do ICMS ST retido.
fbComm1.Parameters.AddWithValue("@MODBC", 0)
'MODBC: Modalidade de determinação da BC do ICMS.
fbComm1.Parameters.AddWithValue("@MODBCST", Nothing)
'MODBCST: Modalidade de determinação da BC do ICMS ST.
fbComm1.Parameters.AddWithValue("@PCOFINS", Nothing)
'PCOFINS: Alíquota da COFINS (em percentual).
fbComm1.Parameters.AddWithValue("@VCOFINS", Nothing)
'VCOFINS: Valor da COFINS.
fbComm1.Parameters.AddWithValue("@PIPI", 0)
'PIPI: Alíquota do IPI.
fbComm1.Parameters.AddWithValue("@VIPI", 0)
'VIPI: Valor do IPI.
fbComm1.Parameters.AddWithValue("@PPIS", 65)
'PPIS: Alíquota do PIS (em percentual).
fbComm1.Parameters.AddWithValue("@VPIS", 120000)
'VPIS: Valor do PIS.
fbComm1.Parameters.AddWithValue("@PMVAST", Nothing)
'PMVAST:Percentual da margem de valor Adicionado do ICMS ST.
fbComm1.Parameters.AddWithValue("@PREDBCST", Nothing)
'PREDBCST: Percentual da Redução de BC do ICMS ST.
fbComm1.Parameters.AddWithValue("@PREDBC", Nothing)
'PREDBC: Percentual da Redução de BC.
fbComm1.Parameters.AddWithValue("@MODDESICMS", Nothing)
'MODDESICMS: Este campo será preenchido quando o campo [VICMS] estiver preenchido.
fbComm1.Parameters.AddWithValue("@VBCSTRET", Nothing)
'VBCSTRET: Valor da BC do ICMS ST cobrado anteriormente por ST.
fbComm1.Parameters.AddWithValue("@VICMSSTRET", Nothing)
'VICMSSTRET: Valor do ICMS ST cobrado anteriormente por ST.
fbComm1.Parameters.AddWithValue("@QBCPROD", Nothing)
'QBCPROD: Quantidade Vendida.
fbComm1.Parameters.AddWithValue("@VALIQPROD", Nothing)
'VALIQPROD: Alíquota da COFINS (em reais).
fbComm1.ExecuteNonQuery()
Next
transacao.Commit()
fbConn.Close()
MessageBox.Show("Nota(s) Inserida(s) a base de dados!")
Catch fbex As FbException
MessageBox.Show("Erro ao acessar o Firebird " + fbex.Message, "Erro")
transacao.Rollback()
Finally
If fbConn IsNot Nothing Then
fbConn.Close()
End If
End Try
Else
MessageBox.Show("Os campos 'Qtd. Notas' e 'Cód. Part.' são obrigatórios!")
End If
blDlBt(True)
End Sub