| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
juniorsoftcb
Aprendiz
Registrado: Domingo, 21 de Setembro de 2008
Mensagens: 107
Localização: Casa Branca-SP
|
 Enviada: Sex Mar 08, 2013 1:52 pm Assunto: ACBr como parãmetrizar campos ICMS |
 |
|
Olá amigos, estou iniciando um sistema de emissão de NFe com Delphi7 / Firebird e ACBr, esta indo bem, porem não estou conseguindo informar no ACBr os valores de ICMS veja :
| Citação: |
with Det.Add do
begin
Abre_Itens;
while not IBQ_Itens.Eof do
begin
Prod.nItem := vContador_Itens; // Número sequencial, para cada item deve ser incrementado
Prod.cProd := IBQ_Itens.FieldByName('CODIGO').AsString;
Prod.cEAN := '';
Prod.xProd := IBQ_Itens.FieldByName('DESCRICAO').AsString;
Prod.NCM := IBQ_Itens.FieldByName('ncm').AsString;
Prod.EXTIPI := IBQ_Itens.FieldByName('cst').AsString;
Prod.CFOP := IBQ_Itens.FieldByName('cfop').AsString;
Prod.uCom := IBQ_Itens.FieldByName('UNIDADE').AsString;
Prod.qCom := IBQ_Itens.FieldByName('qtde').AsInteger;
Prod.vUnCom := IBQ_Itens.FieldByName('PRECO_VENDA').AsCurrency;
Prod.vProd := (IBQ_Itens.FieldByName('qtde').AsInteger * IBQ_Itens.FieldByName('PRECO_VENDA').AsCurrency); // VALOR
Prod.cEANTrib := '';
Prod.uTrib := IBQ_Itens.FieldByName('UNIDADE').AsString;
Prod.qTrib := IBQ_Itens.FieldByName('qtde').AsInteger;
Prod.vUnTrib := Prod.vProd;
Prod.vFrete := 0;
Prod.vSeg := 0;
Prod.vDesc := 0;
infAdProd := ''; //'Este produto é um teste !';
//Grupo para serviços
with Imposto.ISSQN do
begin
cSitTrib := ISSQNcSitTribNORMAL;
vBC := Prod.vProd; //100;
vAliq := IBQ_Itens.FieldByName('aliq_icms').AsInteger;
vISSQN := 2;
cMunFG := 3554003;
cListServ := 1402; // Preencha este campo usando a tabela disponível // em http://www.planalto.gov.br/Ccivil_03/LEIS/LCP/Lcp116.htm
end;
IBQ_Itens.Next;
vContador_Itens := (vContador_Itens + 1);
end;
IBQ_Itens.Close;
end;
|
Gera o xml tudo ok, mas ao imprimir o DANFE os valores BASE ICMS, ALIQ.ICMS sai tudo 0 (zero).
Onde estou errando ?
Busco a ajuda dos colegas mais esperientes aqui do forum, Obrigado
Júnior |
|
| Voltar ao Topo |
|
 |
Ghost_Rider
Colaborador
Registrado: Segunda-Feira, 6 de Outubro de 2003
Mensagens: 4437
|
| Enviada: Sex Mar 08, 2013 2:08 pm Assunto: |
|
|
Cara, vc ta preenchendo a parte de ISS, ta errado...
Procura por Det.Add.Imposto, e dentro dele ICMS... |
|
| Voltar ao Topo |
|
|
juniorsoftcb
Aprendiz
Registrado: Domingo, 21 de Setembro de 2008
Mensagens: 107
Localização: Casa Branca-SP
|
| Enviada: Sex Mar 08, 2013 2:19 pm Assunto: |
|
|
| Ghost_Rider escreveu: | Cara, vc ta preenchendo a parte de ISS, ta errado...
Procura por Det.Add.Imposto, e dentro dele ICMS... |
Olá amigo, muito obrigado por sua atenção, mas será que vc pode me mandar um exemplo ?
Vi que no ACBr tem alguns exemplos tipo :
//Adicionando Produtos
//Declaração de Importação. Pode ser adicionada várias através do comando Prod.DI.Add
//Campos para venda de veículos novos
//Campos específicos para venda de medicamentos
etc... |
|
| Voltar ao Topo |
|
|
juniorsoftcb
Aprendiz
Registrado: Domingo, 21 de Setembro de 2008
Mensagens: 107
Localização: Casa Branca-SP
|
| Enviada: Sex Mar 08, 2013 3:55 pm Assunto: |
|
|
Tentei com este código mas não muda nada !
| Citação: |
with Imposto do
begin
with ICMS do
begin
CST := cst00;
ICMS.orig := oeNacional;
ICMS.modBC := dbiValorOperacao;
ICMS.vBC := 100;
ICMS.pICMS := 18;
ICMS.vICMS := 18;
ICMS.modBCST := dbisMargemValorAgregado;
ICMS.pMVAST := 0;
ICMS.pRedBCST := 0;
ICMS.vBCST := 0;
ICMS.pICMSST := 0;
ICMS.vICMSST := 0;
ICMS.pRedBC := 0;
end;
end;
|
|
|
| Voltar ao Topo |
|
|
Ghost_Rider
Colaborador
Registrado: Segunda-Feira, 6 de Outubro de 2003
Mensagens: 4437
|
| Enviada: Sex Mar 08, 2013 4:04 pm Assunto: |
|
|
| Tá....assim...qual seu conhecimento tributário ??? |
|
| Voltar ao Topo |
|
|
juniorsoftcb
Aprendiz
Registrado: Domingo, 21 de Setembro de 2008
Mensagens: 107
Localização: Casa Branca-SP
|
| Enviada: Sex Mar 08, 2013 4:21 pm Assunto: |
|
|
| Ghost_Rider escreveu: | | Tá....assim...qual seu conhecimento tributário ??? |
Muito pouco, estou trabalhando com o auxilido de um contador,
a empresa esta classificada no Simples !
| Citação: |
O que eu preciso é passar os parãmetros/valores do produto vendido nas colunas B.CALC ICMS / VALOR ICMS / ALIQ.ICMS no danfe
E não sei como fazer isso, pesso ajuda !
|
|
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
