exemplo em vb pra gerar o sat

[edsonmarques]

alguem tem exemplo em vb pra gerar venda, cancelamento, leitura x, redução z 

 

como 

whit produto

produto.ean1 = "xxx"

produto.nome = "xxxxxxxxx"

end whit

ou assim abaixo

 

 

 

      Codigo = TiraAcentos(Itens1![Codigo do produtos])
                EAN13 = TiraAcentos(Itens1![Codigo do produtos])
                Descricao = TiraAcentos(Prod![Nome do produto])
                indiceDepartamento = "01"
                Aliquota = Prod!Alicota
                unidadeMedida = Prod!Unidade
                TipoQuantidade = "I"
                casasDecimaisQuantidade = "2"
                Quantidade = Format(Itens1!Quantidade, "#####0.00")
                casasDecimaisValorUnitario = "2"
                ValorUnitario = Format(Itens1![Valor unitário], "#####0.00")
                TipoAcrescimoDesconto = "$"
                valorAcrescimo = "00,00"
                valorDesconto = "00,00"
                tipoCalculo = "A"
                Ncm = Prod!Ncm
                CFOP = IIf(Prod!Alicota = "FF", "5405", "5102")
                informacoesAdicionais = "OBRIGADO POR COMPRAR NA PROPADEIRO"
                CST_ICMS = "00"
                origemProduto = "0"
                itemListaServico = ""
                codigoISS = ""
                naturezaOperacaoISS = ""
                indicadorIncentivoISS = ""
                codigoIBGE = ""
                CSOSN = IIf(Prod!Alicota = "FF", "500", "102")
                baseCalculoValorRetido = ""
                ICMS_ValorRetido = ""
                modoBaseCalculo = ""
                percentualReducaoBaseCalculo = ""
                ICMS_ST_ModoBaseCalculo = ""
                ICMS_ST_PercentualMargemAdicionado = ""
                ICMS_ST_PercentualReducaoBaseCalculo = ""
                ICMS_ST_ValorReducaoBaseCalculo = ""
                ICMS_ST_Aliquota = ""
                ICMS_ST_Valor = ""
                valorDesoneracaoICMS = ""
                motivoDesoneracaoICMS = ""
                aliquotaCalculoCredito = ""
                creditoICMSSimples = ""
                impostosIncidentes = Format(Itens1![Total dolar], "#####0.00")
                somatrib = somatrib + Itens1![Total dolar]
                CST_PIS = "01"
                PIS_BaseCalculo = "0,00"
                PIS_Aliquota = "0,00"
                PIS_Valor = "0,00"
                PIS_QuantidadeVendida = ""
                PIS_ValorAliquotaReais = ""
                CST_COFINS = "01"
                COFINS_BaseCalculo = "0,00"
                COFINS_Aliquota = "0,00"
                COFINS_Valor = "0,00"
                COFINS_QuantidadeVendida = ""
                COFINS_ValorAliquotaReais = ""
                CEST = ""
        End If
' Opção 1 para concatenar variávies

sParametros = "{" & Chr(34) & "codigo" & Chr(34) & ":" & Chr(34) & Codigo & Chr(34) & "," & Chr(34) & "EAN13" & Chr(34) & ":" & Chr(34) & EAN13 & Chr(34) & "," & Chr(34) & "descricao" & Chr(34) & ":" & Chr(34) & Descricao & Chr(34) & "," & Chr(34) & "indiceDepartamento" & Chr(34) & ":" & Chr(34) & indiceDepartamento & Chr(34) & "," _
& Chr(34) & "aliquota" & Chr(34) & ":" & Chr(34) & Aliquota & Chr(34) & "," & Chr(34) & "unidadeMedida" & Chr(34) & ":" & Chr(34) & unidadeMedida & Chr(34) & "," & Chr(34) & "tipoQuantidade" & Chr(34) & ":" & Chr(34) & TipoQuantidade & Chr(34) & "," & Chr(34) & "casasDecimaisQuantidade" & Chr(34) & ":" & Chr(34) & casasDecimaisQuantidade & Chr(34) & "," _
& Chr(34) & "quantidade" & Chr(34) & ":" & Chr(34) & Quantidade & Chr(34) & "," & Chr(34) & "casasDecimaisValorUnitario" & Chr(34) & ":" & Chr(34) & casasDecimaisValorUnitario & Chr(34) & "," & Chr(34) & "valorUnitario" & Chr(34) & ":" & Chr(34) & ValorUnitario & Chr(34) & "," & Chr(34) & "tipoAcrescimoDesconto" & Chr(34) & ":" & Chr(34) & TipoAcrescimoDesconto & Chr(34) & "," _
& Chr(34) & "valorAcrescimo" & Chr(34) & ":" & Chr(34) & valorAcrescimo & Chr(34) & "," & Chr(34) & "valorDesconto" & Chr(34) & ":" & Chr(34) & valorDesconto & Chr(34) & "," & Chr(34) & "tipoCalculo" & Chr(34) & ":" & Chr(34) & tipoCalculo & Chr(34) & "," & Chr(34) & "NCM" & Chr(34) & ":" & Chr(34) & Ncm & Chr(34) & "," & Chr(34) & "CFOP" & Chr(34) & ":" _
& Chr(34) & CFOP & Chr(34) & "," & Chr(34) & "informacoesAdicionais" & Chr(34) & ":" & Chr(34) & informacoesAdicionais & Chr(34) & "," & Chr(34) & "CST_ICMS" & Chr(34) & ":" & Chr(34) & CST_ICMS & Chr(34) & "," & Chr(34) & "origemProduto" & Chr(34) & ":" & Chr(34) & origemProduto & Chr(34) & "," & Chr(34) & "itemListaServico" & Chr(34) & ":" _
& Chr(34) & itemListaServico & Chr(34) & "," & Chr(34) & "codigoISS" & Chr(34) & ":" & Chr(34) & codigoISS & Chr(34) & "," & Chr(34) & "naturezaOperacaoISS" & Chr(34) & ":" & Chr(34) & naturezaOperacaoISS & Chr(34) & "," & Chr(34) & "indicadorIncentivoISS" & Chr(34) & ":" & Chr(34) & indicadorIncentivoISS & Chr(34) & "," & Chr(34) & "codigoIBGE" & Chr(34) & ":" _
& Chr(34) & codigoIBGE & Chr(34) & "," & Chr(34) & "CSOSN" & Chr(34) & ":" & Chr(34) & CSOSN & Chr(34) & "," & Chr(34) & "baseCalculoValorRetido" & Chr(34) & ":" & Chr(34) & baseCalculoValorRetido & Chr(34) & "," & Chr(34) & "ICMS_ValorRetido" & Chr(34) & ":" & Chr(34) & ICMS_ValorRetido & Chr(34) & "," & Chr(34) & "modoBaseCalculo" & Chr(34) & ":" & Chr(34) & modoBaseCalculo & Chr(34) & "," _
& Chr(34) & "percentualReducaoBaseCalculo" & Chr(34) & ":" & Chr(34) & percentualReducaoBaseCalculo & Chr(34) & "," & Chr(34) & "ICMS_ST_ModoBaseCalculo" & Chr(34) & ":" & Chr(34) & ICMS_ST_ModoBaseCalculo & Chr(34) & "," & Chr(34) & "ICMS_ST_PercentualMargemAdicionado" & Chr(34) & ":" & Chr(34) & ICMS_ST_PercentualMargemAdicionado & Chr(34) & "," & Chr(34) & "ICMS_ST_PercentualReducaoBaseCalculo" & Chr(34) & ":" _
& Chr(34) & ICMS_ST_PercentualReducaoBaseCalculo & Chr(34) & "," & Chr(34) & "ICMS_ST_ValorReducaoBaseCalculo" & Chr(34) & ":" & Chr(34) & ICMS_ST_ValorReducaoBaseCalculo & Chr(34) & "," & Chr(34) & "ICMS_ST_Aliquota" & Chr(34) & ":" & Chr(34) & ICMS_ST_Aliquota & Chr(34) & "," & Chr(34) & "ICMS_ST_Valor" & Chr(34) & ":" & Chr(34) & ICMS_ST_Valor & Chr(34) & "," & Chr(34) & "valorDesoneracaoICMS" & Chr(34) & ":" _
& Chr(34) & valorDesoneracaoICMS & Chr(34) & "," & Chr(34) & "motivoDesoneracaoICMS" & Chr(34) & ":" & Chr(34) & motivoDesoneracaoICMS & Chr(34) & "," & Chr(34) & "aliquotaCalculoCredito" & Chr(34) & ":" & Chr(34) & aliquotaCalculoCredito & Chr(34) & "," & Chr(34) & "creditoICMSSimples" & Chr(34) & ":" & Chr(34) & creditoICMSSimples & Chr(34) & "," & Chr(34) & "impostosIncidentes" & Chr(34) & ":" & Chr(34) & impostosIncidentes & Chr(34) & "," _
& Chr(34) & "CST_PIS" & Chr(34) & ":" & Chr(34) & CST_PIS & Chr(34) & "," & Chr(34) & "PIS_BaseCalculo" & Chr(34) & ":" & Chr(34) & PIS_BaseCalculo & Chr(34) & "," & Chr(34) & "PIS_Aliquota" & Chr(34) & ":" & Chr(34) & PIS_Aliquota & Chr(34) & "," & Chr(34) & "PIS_Valor" & Chr(34) & ":" & Chr(34) & PIS_Valor & Chr(34) & "," & Chr(34) & "PIS_QuantidadeVendida" & Chr(34) & ":" & Chr(34) & PIS_QuantidadeVendida & Chr(34) & "," _
& Chr(34) & "PIS_ValorAliquotaReais" & Chr(34) & ":" & Chr(34) & PIS_ValorAliquotaReais & Chr(34) & "," & Chr(34) & "CST_COFINS" & Chr(34) & ":" & Chr(34) & CST_COFINS & Chr(34) & "," & Chr(34) & "COFINS_BaseCalculo" & Chr(34) & ":" & Chr(34) & COFINS_BaseCalculo & Chr(34) & "," & Chr(34) & "COFINS_Aliquota" & Chr(34) & ":" & Chr(34) & COFINS_Aliquota & Chr(34) & "," & Chr(34) & "COFINS_Valor" & Chr(34) & ":" & Chr(34) & COFINS_Valor & Chr(34) & "," _
& Chr(34) & "COFINS_QuantidadeVendida" & Chr(34) & ":" & Chr(34) & COFINS_QuantidadeVendida & Chr(34) & "," _
& Chr(34) & "COFINS_ValorAliquotaReais" & Chr(34) & ":" & Chr(34) & COFINS_ValorAliquotaReais & Chr(34) & "," & Chr(34) & "CEST" & Chr(34) & ":" & Chr(34) & CEST & Chr(34) & "}" & Chr(13) & Chr(10)
 

eu vou ter que gerar os ini na unha pra let e enviar no exemplo a cima

 

[Juliomar Marchetti]

Está usando o monitor ou a lib?

[edsonmarques]

Amigo, Juliomar quero contratar o serviço mas nao sei por onde começar, tenho 12 clientes usando outra forma de gerar vendas no sat, qual voce indica pra quem vai começar... e do que indicar por favor me manda exemplo em vb6 ou dos dois pra eu ver e decider por aqui, e entendendo pretendo aderir a ferramenta..

obrigado

[BigWings]

O ACBrMonitorPLUS você apenas cria o arquivo .INI e passa pra ele, via arquivo mesmo ou socket. Precisa instalar o ACBrMonitorPLUS em cada máquina.

A ACBrLib não precisa instalar nada, apenas distribuir a DLL e consumi-la pela sua própria aplicação, ficando transparente para o usuário.

4 horas atrás, edsonmarques disse:

eu vou ter que gerar os ini na unha pra let e enviar no exemplo a cima

Sim, você deve gerar o ini com os dados ou comandos.

Só não sei comentar com relação ao código, não conheço VB.

[Juliomar Marchetti]

Desculpe fiquei sem entender mais ainda.

tu pediu acima exemplo em gerar em vb sat.

perguntei se está usando o ACBrMonitor ou ACBrLibSAT?

 

[edsonmarques]

juliomar quero usar o ACBrLibSAT tem exemplo completo em vb6... pra eu alimentar as propriedades ate dos campos de venda:

ainda nao tive acesso a lib nem aos codigo de exempo completo

BigWings. Tem um exemplo de .ini do layout 0.8 pra enviar

[Juliomar Marchetti]

Agora se entendemos

ACBrLibSAT

https://www.projetoacbr.com.br/forum/sac/v2/cadastro/

cadastra no trial tu baixa tudo e mais os exemplos tu tem o tempo pra testar e usar e depois se quiser atualizações basta seguir mas tu tem como testar

[BigWings]

23 minutos atrás, edsonmarques disse:

BigWings. Tem um exemplo de .ini do layout 0.8 pra enviar

https://acbr.sourceforge.io/ACBrLib/PreenchimentodoArquivoINI.html

https://acbr.sourceforge.io/ACBrLib/ModeloCFeINI.html