osmarbentojr

Bom dia @durvalcastro, na verdade eu acho que você não entendeu bem, não existe um "gesso" que vc molda daquele jeito e esta funcionando, tem que conhecer a legislação, ir testando e enviando em homologação. Abaixo segue uma parte do meu código, que ainda esta sendo ajustado para atender a todas as situações, mas que já funciona em produção if dm.Q1.FieldByName('pro_rcst').AsString = '000' then IBSCBS.CST := cst000; if dm.Q1.FieldByName('pro_rcst').AsString = '010' then IBSCBS.CST := cst010; if dm.Q1.FieldByName('pro_rcst').AsString = '011' then IBSCBS.CST := cst011; if dm.Q1.FieldByName('pro_rcst').AsString = '200' then IBSCBS.CST := cst200; if dm.Q1.FieldByName('pro_rcst').AsString = '220' then IBSCBS.CST := cst220; if dm.Q1.FieldByName('pro_rcst').AsString = '221' then IBSCBS.CST := cst221; if dm.Q1.FieldByName('pro_rcst').AsString = '222' then IBSCBS.CST := cst222; if dm.Q1.FieldByName('pro_rcst').AsString = '400' then IBSCBS.CST := cst400; if dm.Q1.FieldByName('pro_rcst').AsString = '410' then IBSCBS.CST := cst410; if dm.Q1.FieldByName('pro_rcst').AsString = '510' then IBSCBS.CST := cst510; if dm.Q1.FieldByName('pro_rcst').AsString = '515' then IBSCBS.CST := cst515; if dm.Q1.FieldByName('pro_rcst').AsString = '550' then IBSCBS.CST := cst550; if dm.Q1.FieldByName('pro_rcst').AsString = '620' then IBSCBS.CST := cst620; if dm.Q1.FieldByName('pro_rcst').AsString = '800' then IBSCBS.CST := cst800; if dm.Q1.FieldByName('pro_rcst').AsString = '810' then IBSCBS.CST := cst810; if dm.Q1.FieldByName('pro_rcst').AsString = '811' then IBSCBS.CST := cst811; if dm.Q1.FieldByName('pro_rcst').AsString = '820' then IBSCBS.CST := cst820; if dm.Q1.FieldByName('pro_rcst').AsString = '830' then IBSCBS.CST := cst830; IBSCBS.cClassTrib := dm.Q1.FieldByName('pro_cclasstrib').AsString; _vitem := dm.Q1.FieldByName('itenfe_quantidade').AsFloat * dm.Q1.FieldByName('itenfe_valor').AsFloat; _tot_baseibscbs := _tot_baseibscbs + _vitem; _val_ibsuf := (_vitem / 100) * 0.1; _val_ibsmun := (_vitem / 100) * 0.0; _val_cbs := (_vitem / 100) * 0.9; IBSCBS.gIBSCBS.vBC := _vitem; IBSCBS.gIBSCBS.gIBSUF.pIBSUF := 0.1; if dm.Q1.FieldByName('pro_rcst').AsString = '200' then //grupo de redução de base begin IBSCBS.gIBSCBS.gIBSUF.gRed.pRedAliq := 100; IBSCBS.gIBSCBS.gIBSUF.gRed.pAliqEfet := 0; _val_ibsuf := 0; end; IBSCBS.gIBSCBS.gIBSUF.vIBSUF := _val_ibsuf; IBSCBS.gIBSCBS.gIBSMun.pIBSMun := 0; if dm.Q1.FieldByName('pro_rcst').AsString = '200' then begin IBSCBS.gIBSCBS.gIBSMun.gRed.pRedAliq := 100; IBSCBS.gIBSCBS.gIBSMun.gRed.pAliqEfet := 0; _tot_ibsmun := 0; end; IBSCBS.gIBSCBS.gIBSMun.vIBSMun := _tot_ibsmun; IBSCBS.gIBSCBS.vIBS := _val_ibsmun + _val_ibsuf; IBSCBS.gIBSCBS.gCBS.pCBS := 0.9; if dm.Q1.FieldByName('pro_rcst').AsString = '200' then begin IBSCBS.gIBSCBS.gCBS.gRed.pRedAliq := 100; IBSCBS.gIBSCBS.gCBS.gRed.pAliqEfet := 0; _val_cbs := 0; end; IBSCBS.gIBSCBS.gCBS.vCBS := _val_cbs; _tot_ibsuf := _tot_ibsuf + _val_ibsuf; _tot_ibsmun := _tot_ibsmun + _val_ibsmun; _tot_cbs := _tot_cbs + _val_cbs; if dm.Q1.FieldByName('pro_rcst').AsString = '410' then begin _tot_ibsuf := 0; _tot_ibsmun := 0; _tot_cbs := 0; _tot_baseibscbs := 0; end; if dm.Q1.FieldByName('pro_rcst').AsString = '600' then begin IBSCBS.gIBSCBSMono.vTotCBSMonoItem := 0; IBSCBS.gIBSCBSMono.vTotIBSMonoItem := 0; end; end;

Bom dia @durvalcastro, na verdade é assim, o ACBR da um exemplo "genérico" de todos os campos "possíveis", não significa que colocando desse jeito para qualquer grupo de CST\CLASSTRIB funcione, pelo contrário, a depender do conjunto de informações, essa estrutura do exemplo muda, assim como os totais. Já tenho clientes em produção usando o CST 000, CST 200 e CST 600, todos ok, mas para cada um deles, existem uma variação desse exemplo.

Bom dia, depende do "exemplo" prático, pq para cada cst\cclasstrib a estrutura muda, e muda bastante, tenho alguns clientes rodando com algumas situações, se precisar de uma consultoria, me chama no privado.

Obrigado, eu já tenho o exe pronto, estava com BO apenas nos endpoints, vou validar tudo e posto o que deu ou não certo, obrigado

Sim, e os serviços ai dentro ?

Pessoal, bom dia, alguem conseguiu os endpoints de todos os serviços previstos para a geração própria ?

@Juliomar Marchetti bom dia, achei o manual especifico para geração do DADMDFe, gerei um xml de teste pra ver a tag do ciot, a tag é gerada corretamente no XMLs, mas tem uma "maravilhosos" sistemas que simplesmente coloca um layout da ponte que caiu, e dai vc pega um funcionário que não sabe nem ler bula de analgesico, resultado, tempestade perfeita.Segue os modelos "100% oficiais" que a cliente me mandou. Modelo Cte.pdf Modelo Manifesto Exportação.pdf Modelo Manifesto.pdf

@Juliomar Marchetti mas não existe nada para que saia o CIOT ? o cliente mandou isso

na impressão, me mandaram esse "modelo" de uma empresa que esta obrigando meu cliente a fazer igual

Pessoal, bom dia, estou utilizando o ciotonline para emissão do ciot, até ai tudo certo, estava colocando ele nas observações pq no campo especifico não sai, mas estou com dois clientes que não irão carregar mais se não for adequado isso, sabem me dizer se preciso atualizar fontes, algo a respeito ?? No meu fonte esta assim: rodo.infANTT.RNTRC := dmMdf.mdf_rntc; if dmMdf.mdf_ciot <> '' then begin rodo.CIOT := dmMdf.mdf_ciot; with rodo.infANTT.infCIOT.New do begin CIOT := dmMdf.mdf_ciot; CNPJCPF := udmSys._dademp_documento01; end; end; Mas já tentei as variações possiveis e nada, tirei a linha rodo.CIOT := dmMdf.mdf_ciot; e não foi, já troque de New para Add em with rodo.infANTT.infCIOT e também não foi, alguem pode ajudar ? Obrigado desde já.

Pessoal, agora vamos lá, tenho transportadora que dentro do estado de SP não faz manifesto, apenas interestadual, se todo frete remunerado tenho que gerar o ciot, e, os dados do veiculo\origem destino estão no MDF, tenho que emitir MDF pra todas as operações ?

Pessoal, bom dia, bom, primeiro, tem que gerar o CIOT, seja diretamente pela ANTT, seja via qualquer integradora, a grande questão é, informar os dados necessários, valor do frete mínimo e gerar o número do CIOT para os documentos, até aqui, ok, seja direto, seja via qualquer portal tem que gerar. Da questão do pagamento, hoje eu conversei com um gerente do Target Bank, que esta credenciado ao governo\ANTT, e expus a seguinte situação : faço emissão de CT-e\MDF-e para clientes, que são na sua grande maioria, transportadoras com carga própria, tem alguns terceirizados mas em resumo é carga própria, e contratei plataforma para geração do CIOT (no caso a ciotoline), preciso de integração de pagamento ??? Ele afirmou que não preciso de integradora, que posso fazer o pagamento do frete\recebimento do frete, obedecendo, claro, a questão do valor do frete minimo. Comentou que a própria ANTT disse que a transportadora pode apresentar o pagamento pelo meio\canal que quiser para o CIOT, desde que obedecido o frete minimo. Juntando a fala dele, mais o caso do ciotonline que não tem pagamento, eu acredito (desconheço detalhes da lei) ser possivel consumo do webservice da ANTT diretamente.

Pessoal, bom dia, depois de alguns testes, eu estava setando o IBSCBS.CST assim ACBrDfe.Conversao.TCSTIBSCBS(4)) mas ele não gerava as tags, não dava erro, passava pelo código, mas não funcionava, tive que colocar IF para que ficasse assim IBSCBS.CST := cst200, e dai passou, mas, ta bom, obrigado a todos.

Pessoal, boa noite, fui fazer um ajuste nos meus fontes hoje, para um cliente sobre a reforma, e não gera as tags da reforma. Repassei duas vezes o fonte, olhei o exemplo, reinstalei o acbr marcando a opção do XML document, e nada, tem algum "liga\desliga" nas ultimas atualizações ??? Obrigado desde já.

Boa tarde, tenho uma rotina que faz isso sobre os XMLS, um exe paralelo, vc configura, importa os documentos e ele gera, se tiver interessa me chama no privado.