Novos meios de pagamento

[malcarli]

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

Código: Selecionar todos

   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

[Fernando queiroz]

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

[JoséQuintas]

Atualizar o json.

[JoséQuintas]

É 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.

[JoséQuintas]

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.

[JoséQuintas]

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

[malcarli]

novos meios de pagamento 23 e 24 e alterado descrição do 18


01 Dinheiro
02 Cheque
03 Cartão de Crédito
04 Cartão de Débito
05 Cartão da Loja (Private Label), Crediário Digital, Outros Crediários
10 Vale Alimentação
11 Vale Refeição
12 Vale Presente
13 Vale Combustível
14 Duplicata Mercantil
15 Boleto Bancário
16 Depósito Bancário
17 Pagamento Instantâneo (PIX) - Dinâmico
18 TED (Transferência Eletrônica Disponível)
19 Programa de fidelidade, Cashback, Crédito Virtual
20 Pagamento Instantâneo (PIX) - Estático
21 Crédito em Loja
22 Pagamento Eletrônico não Informado - falha de hardware do sistema emissor
23 Pagamento Instantâneo (PIX) - Automático
24 TEF - "Book Transfer"
90 Sem Pagamento
91 Pagamento Posterior
99 Outros

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", "TED (Transferência Eletrônica Disponível)" ],
[ "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" ],
[ "23", "Pagamento Instantâneo (PIX) - Automático" ],
[ "24", "TEF - "Book Transfer"" ],
[ "90", "Sem pagamento" ],
[ "91", "Pagamento Posterior" ],
[ "99", "Outros" ]
]

[JoséQuintas]

Atualizado, mas alterada codepage depois.

Quando instala GIT WINDOWS no computador, ele dá a opção de salvar LOCAL em formato windows/ansi e no github como linux/utf-8.
É no momento da instalação do git windows.
Quando baixa direto do github, vém em utf-8, mas no git aqui vém como ansi.
Uso isso PRA TUDO.
meus fontes, sefazclass, rmchartclass, pdfclass, hwgui, e tudo mais.

Aparentemente o harbour aceita fonte nos dois formatos, mas prefiro manter tudo ansi.
Como ansi assume a codepage do windows.
Isso é compatível com pnotepad ansi.
Isso é compatível com harbour PTISO.

Nota1: Seria diferente num windows em inglês ou em outro idioma.
Nota2: nada a ver com codepage do console/terminal.
Nota3: Até hoje não me convenci do formato utf-8, se vai trazer solução ou problema.
Pelo que me lembro, Len() e Substr() não valem pra utf-8, o que já seria um grande problema.

[Jairo Maia]

Olá José,

Pelo que me lembro, Len() e Substr() não valem pra utf-8, o que já seria um grande problema.

Sim, e não paenas essas.

Digite: hbmk2 utf8 -find e será exibido todas funções que devem ser trocadas se usar UTF8. Nada impede de criar um .CH com os respectivos #xtranslate pra essas funções, mas precisam ser alteradas.