Private Sub InseriCupons() 'Função de inserção de cupons deacordo com a quantidade expressa na GUI 'Propriedades Dim idEcfCupom As Long Dim idEcfCupomItens As Long Dim idEcfReducaoz As Long Dim numTemp As Long Dim numDoc As Long Dim sql As Variant idEcfCupom = 1 idEcfCupomItens = 1 idEcfReducaoz = 1 'Script de delete para as tabelas ECFCUPOM ECFCUPOM_ITENS e ECFREDUCAOZ sql = "DELETE FROM ECFCUPOM" Set qryGERAL = conn.Execute(sql) sql = "DELETE FROM ECFCUPOM_ITENS" Set qryGERAL = conn.Execute(sql) sql = "DELETE FROM ECFREDUCAOZ" Set qryGERAL = conn.Execute(sql) 'Parametros para a barra de progesso progressBarCupom.Min = 0 progressBarCupom.Max = CInt(txtQuantidadeCupons.Text) 'Parametros do reducaoz numTemp = CInt(txtQuantidadeCupons.Text) For n = 1 To CInt(txtQuantidadeCupons.Text) 'Inicio da inserção dos cupons conforme quantidade especificada no txtQuantidadeCupons(0) idEcfCupom = idEcfCupom + 1 'ID sendo incrementado numDoc = numDoc + 1 'NUM_DOC sendo incrementado sql = "INSERT INTO ECFCUPOM values (" sql = sql + CStr(idEcfCupom) + "," 'ID adicionado na string sql sql = sql + "3" + "," 'ECF_CX Número do caixa atribuído ao ECF sql = sql + "'00'" + "," 'COD_SIT Código da situação do documento fiscal: sql = sql + CStr(numDoc) + "," 'NUM_DOC Número do documento fiscal sql = sql + "'01/01/2011'" + "," 'DT_DOC Data da emissão do documento fiscal(MM/DD/YYYY) sql = sql + "78.00" + "," 'VL_DOC Valor total do documento fiscal sql = sql + "'02060533000194'" + "," 'CPFCNPJ CPF ou CNPJ do adquirente sql = sql + "'A MOVELAR - ALTAMIRA'" + ");" 'NOM_ADQ Nome do adquirente conn.Execute (sql) 'Inicio da inserção dos itens dos cupons idEcfCupomItens = idEcfCupomItens + 1 'ID sendo incrementado sql = "INSERT INTO ECFCUPOM_ITENS values (" sql = sql + CStr(idEcfCupomItens) + "," 'ID adicionado na string sql sql = sql + CStr(idEcfCupom) + "," 'ECFCUPOM_ID REFERE-SE AO [ECFCUPOM].[ID], VINCULANDO OS DADOS. sql = sql + "0000000011236" + "," 'COD_ITEM Codigo do Item sql = sql + "'LIQUID. MALLORY EXPART'" + "," 'DESCRICAO Descricao do Item sql = sql + "1000" + "," 'QTD Quantidade do Item sql = sql + "0" + "," 'QTD_CANC Quantidade cancelado sql = sql + "'UN'" + "," 'UNID Unidade sql = sql + "70.00" + "," 'VL_ITEM Valor do item (quantidade * unitario), COM desconto. sql = sql + "8.00" + "," 'VL_DESCONTO Valor do desconto dado para este item (desconto_unitario * quantidade). sql = sql + "5102" + "," 'cfop Código Fiscal de Operações e Prestações. Utilizar Tabela de CFOP. sql = sql + "17.00" + "," 'ALIQ_ICMS Percentual de Aliquota sql = sql + "0.46" + "," 'VL_PIS Valor total do PIS para este registro. sql = sql + "2.10" + "," 'VL_COFINS Valor total do COFINS para este registro. sql = sql + "'000'" + "," 'CST_ICMS CODIGO DE SITUACAO TRIBUTARIA. sql = sql + "'01T1700'" + "," 'COD_TOT_PARC 4.4.6 - Tabela de Códigos dos Totalizadores Parciais da REDUÇÃO Z sql = sql + "null" + ");" 'NCM não tem descrição conn.Execute (sql) progressBarCupom.Value = n Next 'Inicio da inserção na tabela ECFREDUCAOZ idEcfReducaoz = idEcfReducaoz + 1 'ID sendo incrementado sql = "INSERT INTO ECFREDUCAOZ values (" sql = sql + CStr(idEcfReducaoz) + "," 'ID sendo adicionado na string sql sql = sql + "3" + "," 'ECF_CX Número do caixa atribuído ao ECF sql = sql + "'01/01/2011'" + "," 'DT_DOC Data do movimento a que se refere a Redução Z sql = sql + "3" + "," 'CRO Posição do Contador de Reinício de Operação sql = sql + CStr(numTemp) + "," 'CRZ Posição do Contador de Redução Z sql = sql + CStr(numTemp) + "," 'NUM_COO_FINNúmero do Contador de Ordem de Operação do último documento emitido no dia. numTemp = numTemp * 78 sql = sql + CStr(numTemp) + "," 'GT_FIN Valor do Grande Total final sql = sql + "'BE'" + "," 'COD_MOD Código do modelo do equipamento: sql = sql + "'MP-2100 TH FI'" + "," 'ECF_MOD Modelo do equipamento sql = sql + "'BE050769200007013427'" + ");" 'ECF_SERIE Número de série de fabricação do ECF conn.Execute (sql) MsgBox "Cupons inseridos com sucesso!" progressBarCupom.Value = 0 End Sub