Bom dia pessoal,
Em sequência ao tópico http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=5218&start=20, estou tentando desenvolver os códigos que gerariam os registros 88 a partir de uma base de dados (planilhas).
Digo em sequência, pois a rotina de importação do TXT do Sintegra e seu posterior retorno ao formato (após as devidas alterações/correções efetuadas pelo usuário) já existem na planilha brilhantemente desenvolvida pela turma no tópico citado e cuja versão final encontra-se anexada abaixo.
Especificamente o que preciso é que no momento do retorno dos registros no formato de planilha ao formato TXT Sintegra, sejam adicionados os registros 88STES e 88STITNF. Consigo gerar o registro em duas planilhas através de fórmulas, mas estou com dificuldades na criação do código VBA de retorno.
Agradeceria muito se alguém puder ajudar.
Os modelos e layout dos arquivos são estes:
88STES
88STES0000000000000018032013000000000000000000000000000000000000000000000000000 Este é o LAY-OUT correto
88 STES 00000000000000 20130319 00000000000000 0000000000000 000000000000 000000000000 Esta linha é para se ter uma idéia da quebra dos registros
O registro é composto pelos campos: 88, STES, CNPJ, DATA AAAAMMDD, COD.PRODUTO, QTDE 3 CASAS DEC., VALOR ICMS ST 2 CASAS DEC., VALOR ICMS OP.PROPRIA 2 CASAS DEC., ESPAÇOS EM BCO 47 ESPAÇOS.
88STITNF
88STITNF0000000000000001000000000510104000120130319000000000000000000000000000000000000000000000000000000000000000170018000000000000 Este é o LAY-OUT correto
88 STITNF 00000000000000 01 000 000000 5101 040 001 20130319 00000000000000 00000000000 000000000000 000000000000 000000000000 0017 0018 000000000000 Esta linha é para se ter uma idéia da quebra dos registros
O registro é composto pelos campos: 88, STITNF, CNPJ, MODELO DOC.FISCAL, SERIE NF, NUMERO NF, CFOP, ORDEM DO ITEM, DATA AAAAMMDD, COD.PRODUTO, QTDE 3 CASAS DEC.,VALOR 2 CASAS DEC., BASE CALC ICMS 2 CASAS DEC., BASE CALC ICMS ST 2 CASAS DEC., ALIQ ICM ST 2 CASAS DEC., ALIQ ICMS OP.PROPRIA 2 CASAS DEC., VALOR DO IPI.
Postado : 05/04/2013 7:39 am