Pesquisar na Comunidade
Showing results for tags 'A2'.
Encontrado 2 registros
-
Boa noite, Pessoal. Procurei no fórum, porém não encontrei resposta para minha dúvida. Para gerar o registro A2 - Total Diário de Meios de Pagamento do Registros do PAFECF, listo diariamente todos os meios de pagamento com o somatório de seus valores, isso tanto para cupons fiscais, quanto para comprovante não fiscal. Porém com a Nota Fiscal eu estou em dúvida. Exemplo: Emiti uma NF-e no valor de R$900,00 no dia 01/03/2016. Seu pagamento foi parcelado em 3 vezes de R$300,00 (1ª Parcela - 15/03/2016 - R$300,00; 2ª Parcela - 15/04/2016 - R$300,00; 3ª Parcela - 15/05/2016 - R$300,00). Não houve pagamento no dia da emissão. Como vou demonstrar isso? Crio uma forma de pagamento "crediário" e coloco o valor de R$900,00 no dia 01/03/2016? Caso eu receba R$300,00 no dia 15/03/2016(1ª Parcela) eu demonstro somente esse valor neste dia, demonstrando a medida que estou recebendo? Muito obrigado pela atenção.
-
Problema Com Datamovimento Ao Usar Simulador Sweda Sem Redução Z
um tópico no fórum postou gleisonpauloc ACBrSerial
Encontrei um problema ao usar o Simulador da Sweda sem redução Z ao retornar a data do movimento: Ao executar RetornaInfoECF('A2') sem Redução Z a String retornada é: #0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'28/11/2013'#0'17:28:20'#0#0'21/11/2013'#0'15:26:16'#0#0'28/11/2013'#0'17:28:30'#0#0#3'¹'#2'934+0000CA˜À’€€A2' Ao executar RetornaInfoECF('A2') Com Redução Z a String retornada é: '29/11/2013'#0'16:41:00'#0#0'29/11/2013'#0'16:42:08'#0#0'29/11/2013'#0'16:41:26'#0#0'29/11/2013'#0'16:42:16'#0#0#3#5#2'934+0000AA˜À’€€A2' No primeiro caso a função Trim esta eliminando as informações da primeira data (Redução Z). Neste caso creio que o correto seria o uso de RemoveNulos() no lugar de Trim. function TACBrECFSwedaSTX.GetDataMovimento: TDateTime; Var RetCmd : AnsiString ; OldShortDateFormat: AnsiString; sData:String; begin // RetCmd := Trim(RetornaInfoECF('A2')); RetCmd := RemoveNulos(RetornaInfoECF('A2')); OldShortDateFormat := ShortDateFormat ; try sData := Copy(RetCmd,22,10); ShortDateFormat := 'dd/mm/yyyy' ; Result := StrToDate(sData); finally ShortDateFormat := OldShortDateFormat ; end ; end;
