Élviro Cavalcanti
-
Total de ítens
162 -
Registro em
-
Última visita
Community Answers
-
Élviro Cavalcanti's post in consultar xml mdfe was marked as the answer
Bom dia, você pode usar consultando o arquivo xml que foi montado pra o envio, eu uso dessa forma e ele baixa o xml completo, acredito que esse código abaixo poderá ajudar você.
Var VPasta:string;
begin
ACBrMDFe1.Manifestos.Clear;
//Configura onde vai ser salvo o PDF
VPasta := Copy(EdDataDia.Text, 7,4) + Copy(EdDataDia.Text, 4,2);
ACBrMDFeDAMDFeRL1.PathPDF := FrmLogin.EdPathPDFMDFe.Text + '\' + VPasta;
//Configura onde vai ser salvo o PDF
ACBrMDFe1.DAMDFE.MargemDireita := 7;
ACBrMDFe1.DAMDFE.MargemEsquerda := 7;
ACBrMDFe1.DAMDFE.MargemSuperior := 5;
ACBrMDFe1.DAMDFE.MargemInferior := 5;
ACBrMDFe1.Manifestos.Clear;
ACBrMDFe1.Manifestos.LoadFromFile(ExtractFilePath(Application.ExeName) + '\Log\' + DM.IBManifestoNUMERO.AsString + '-env-lot.xml');
ACBrMDFe1.Consultar;
MemoResp.Lines.Text := ACBrMDFe1.WebServices.Consulta.RetWS;
memoRespWS.Lines.Text := ACBrMDFe1.WebServices.Consulta.RetornoWS;
ACBrMDFe1.Configuracoes.Geral.Salvar := True;
ACBrMDFe1.Configuracoes.Arquivos.Salvar := True;
DM.IBManifesto.Edit;
DM.IBManifestoPROTOCOLOMDFE.AsString := ACBrMDFe1.WebServices.Consulta.Protocolo;
DM.IBManifestoRECIBONDFE.AsString := ACBrMDFe1.WebServices.Consulta.Protocolo;
DM.IBManifestoCHAVEMDFE.AsString := ACBrMDFe1.WebServices.Consulta.MDFeChave;
DM.IBManifestoSITUACAO.AsString := 'ENVIADO';
DM.IBManifesto.Post;
DM.IBTransaction1.CommitRetaining;
ACBrMDFe1.DAMDFE.PathPDF := FrmLogin.EdPathPDFMDFe.Text + '\' + VPasta;
ACBrMDFe1.DAMDFE.ImprimirDAMDFePDF();
ACBrMDFe1.Manifestos.Imprimir;
-
Élviro Cavalcanti's post in Erro com tabela sem dados was marked as the answer
Boa tarde, tive que apagar a tabela "transportador" e criando outra com o nome "transportadora" só assim consegui que tudo voltasse ao normal, até agora fiquei sem entender, mas segue ....
-
Élviro Cavalcanti's post in Conflito de transição firebird was marked as the answer
Possivelmente você está deixando alguma transação aberta e por isso não consegue efetuar o update.
-
Élviro Cavalcanti's post in DBEdit não permite digitar no delphi 2010 e MySQL was marked as the answer
Boa tarde, peço desculpas pela demora em concluir esse post, resolvido Juliomar, eu removi a unit completa do formulário de Fornecedores e importei de uma outra fazendo apenas os ajustes do componente, resolvido ! Fico grato mais uma vez !
-
Élviro Cavalcanti's post in Gorjeta 10% was marked as the answer
Bom dia, achei essa resposta no site contábil, não sei se seria útil.
(grupo prod - ID I01), com:
CFOP 5949 - Outra saída de mercadoria ou prestação de serviço não especificado;
CST 40 – Isenta da tributação do ICMS (campo CST - ID N03);
NCM 99;
Segue abaixo, fonte da pesquisa
https://www.contabeis.com.br/forum/tributos-estaduais-municipais/255233/ncm-para-gorjeta/
-
Élviro Cavalcanti's post in Pegar Status da NFCe consultada was marked as the answer
Bom dia, sempre consulto dessa forma
FrmPrincipal.ACBrNFe1.NotasFiscais.Clear;
FrmPrincipal.ACBrNFe1.Consultar(DM.IBVendaPDVCHAVENFCE.AsString, False);
FrmPrincipal.ACBrNFe1.WebServices.Consulta.Executar;
MemoResp.Lines.Text := FrmPrincipal.ACBrNFe1.WebServices.Consulta.RetWS;
memoRespWS.Lines.Text := FrmPrincipal.ACBrNFe1.WebServices.Consulta.RetornoWS;
ShowMessage(obterNroResultado(MemoResp.text, 'xMotivo','</xMotivo'));
-
Élviro Cavalcanti's post in Impressão NFCe em bobina was marked as the answer
Pois é meu amigo, estava usando o do danfe da nfe, acabei de ajustar aqui, peço desculpas pela falta de atenção! Aqui resolvido agora, tudo correndo certo aqui, pode fechar a postagem!
-
Élviro Cavalcanti's post in Como cadastrar softwarehouse no DF e AL was marked as the answer
Boa tarde, só os códigos CSC e pedir os protocolos de homologação e produção
-
Élviro Cavalcanti's post in Impressão Direta was marked as the answer
Tive que mudar pra o componente VDOCaPrinter com ele consegui resolver o problema de condensar o cupom fiscal