PC Toledo

Boa tarde Mestre, conforme nt em vigor está faltando os seguintes 4 meios de pagamentos:

   CASE Len( ::aDetPag ) > 0
      aList := { ;
         { "01", "DINHEIRO" }, ;
         { "02", "CHEQUE" }, ;
         { "03", "CARTAO DE CREDITO" }, ;
         { "04", "CARTAO DE DEBITO" }, ;
         { "05", "CREDITO LOJA" }, ;
         { "10", "VALE ALIMENTACAO" }, ;
         { "11", "VALE REFEICAO" }, ;
         { "12", "VALE PRESENTE" }, ;
         { "13", "VALE COMBUSTIVEL" }, ;
         { "15", "BOLETO BANCARIO" }, ;

         { "16", "DEPOSITO BANCARIO" }, ;  // estes 4
         { "17", "PAGAMENTO INSTANTANEO (PIX)" }, ;
         { "18", "TRANSFERENCIA BANCARIA, CARTEIRA DIGITAL" }, ;
         { "19", "PROGRAMA DE FIDELIDADE, CASHBACK, CREDITO VIRTUAL" }, ;

         { "90", "SEM PAGAMENTO" }, ;
         { "99", "OUTROS" } }

obg

Att.

Marcelo A. L. Carli
Marília/SP
Capital Nacional do Alimento ®
https://malc-informatica.ueniweb.com
Insta: @malcarli25
Email / Skype: marceloalcarli@gmail.com

Código: Selecionar todos

cQuery+= "('1', 'DINHEIRO', 'DINHEIRO', '1', '0', '1'), "
		cQuery+= "('2', 'CHEQUE', 'CHEQUE', '0', '0', '0'), "
		cQuery+= "('3', 'CARTAO DE CREDITO', 'CARTAO DE CREDITO', '0', '1', '0'), "
		cQuery+= "('4', 'CARTAO DE DEBITO', 'CARTAO DE DEBITO', '0', '1', '0'), "
		cQuery+= "('5', 'CREDITO LOJA', 'CREDITO LOJA', '1', '0', '0'), "
		cQuery+= "('10', 'VALE ALIMENTACAO', 'VALE ALIMENTACAO', '0', '0', '0'), "
		cQuery+= "('11', 'VALE REFEICAO', 'VALE REFEICAO', '0', '0', '0'), "
		cQuery+= "('12', 'VALE PRESENTE', 'VALE PRESENTE', '0', '0', '0'), "
		cQuery+= "('13', 'VALE COMBUSTIVEL', 'VALE COMBUSTIVEL', '0', '0', '0'), "
		cQuery+= "('15', 'BOLETO BANCARIO', 'BOLETO BANCARIO', '0', '0', '0'), "
		cQuery+= "('16', 'DEPOSITO BANCARIO', 'DEPOSITO BANCARIO', '0', '0', '0'), "
		cQuery+= "('17', 'PAGAMENTO INSTANTANEO (PIX)', 'PAGAMENTO INSTANTANEO (PIX)', '0', '0', '0'), "
		cQuery+= "('18', 'TRANSFERENCIA BANCARIA', 'TRANSFERENCIA BANCARIA', '0', '0', '0'), "
		cQuery+= "('19', 'PROGRAMA DE FIDELIDADE', 'PROGRAMA DE FIDELIDADE', '0', '0', '0'), "
		cQuery+= "('20', 'PAGAMENTO INSTANTANEO (PIX) ESTATICO', 'PAGAMENTO INSTANTANEO (PIX) ESTATICO', '0', '0', '0'), "
		cQuery+= "('21', 'TRANSFERENCIA COM CARTAO PRE-PAGO', 'TRANSFERENCIA COM CARTAO PRE-PAGO', '0', '0', '0'), "
		cQuery+= "('90', 'SEM PAGAMENTO', 'SEM PAGAMENTO', '0', '0', '0'), "
		cQuery+= "('99', 'OUTROS', 'OUTROS', '0', '0', '0')"

na sua lista esta faltando algumas formas de pagamento

20 Pagamento Instantâneo (PIX) – Estático 01/07/2024 PIX realizado com QR-Code estático ou por meio de transferência.
21 Crédito em Loja 01/07/2024 Crédito em loja decorrente de valor pago anteriormente, de devolução de mercadoria etc.
22 Pagamento Eletrônico não Informado – falha de hardware do sistema emissor 01/07/2024 Usado quando o pagamento por meio eletrônico não foi integrado por falha no hardware do sistema emissor de documento fiscal eletrônico, somente em exceção, quando não for possível a emissão offline.

eu usava o 17 para PIX e agora estou usando o 20, o 17 agora tem de ser com identificação

se usava o 17 verifique na documentacao pois existe alteracoes paraq essa forma de pagamento

Atualizar o json.

É um saco isso.
O json tá pronto, mas a sefaz usar diferente....
Tentar alguma alternativa.
Talvez o #pragma binary, e decidir se o json vai pra fontes ou não.

Uia

Código: Selecionar todos

      aList := hb_JsonDecode( LoadJson( "tpag.json" ) )

Código: Selecionar todos

STATIC FUNCTION LoadJson( cTipo )

   DO CASE
   CASE cTipo == "tpag.json"; #pragma __binarystreaminclude "..\json\sefaztpag.json" | RETURN %s
   ENDCASE

   RETURN Nil

e o json

Código: Selecionar todos

[
[ '01', 'Dinheiro' ],
[ '02', 'Cheque' ],
[ '03', 'Cartão de Crédito' ],
[ '04', 'Cartão de Débito' ],
[ '05', 'Crédito Loja' ],
[ '10', 'Vale Alimentação' ],
[ '11', 'Vale Refeição' ],
[ '12', 'Vale Presente' ],
[ '13', 'Vale Combustível' ],
[ '15', 'Boleto Bancário' ],
[ '16', 'Depósito Bancário' ],
[ '17', 'PIX Identificado' ],
[ '18', 'Transferência Bancária, Carteira Digital' ],
[ '19', 'Programa de fidelidade, Cashback, Crédito Virtual' ],
[ '20', 'PIX QRCode Estático ou Transferência' ],
[ '21', 'Crédito em Loja, pago anteriormente, devolução, etc' ],
[ '22', 'Pagto Eletrônico não informado, por falha de hardware' ],
[ '90', 'Sem pagamento' ],
[ '99', 'Outros' ]
]

Traduzindo: o json vai fazer parte do fonte compilado.

Leis das probabilidades...
Justo esse json estava errado.
NÃO EXISTE ASPAS SIMPLES EM JSON

PC Toledo

Novos meios de pagamento

Novos meios de pagamento

Novos meios de pagamento

Novos meios de pagamento

Novos meios de pagamento

Novos meios de pagamento

Novos meios de pagamento