crisvam

Faça uma Matriz com as opções. Por ex.:
mItem :={"A vista","A Vista 20%","---------------------","A prazo","A prazo 1X","A prazo 2X","Aprazo 3X","A Prazo 4X","-------------------------","Cartão Debito","Cartão Debito 1X"}
Se For com resource  ---> Redefine ComboBox oCbx  Var mItem[1] ID 101 ITEMS mIte Font oFnt ON Change Alias->(DbSetOrder(oCbx:nAT) )

Assim:
oExpBar := TExplorerBar():New(30,10,138,298,odigmov)
opan[1] := oExpBar:AddPanel("Movimento","\SCF\Bitmap\People.Bmp")
Define Font oFnt Name "Courier New" Size 0,-15
oPan[1]:SetFont(oFnt)

Olha, a impressora Bematech não fiscal tem uma rotina própria. Te aconselho a inserir a dll dela no sistema e usa-la para impressão. Pelo PRN a coisa fica sempre meio que disfuncional
 

Valdir,
Baixa o instalador da dll na flexdocs. Apaga a pasta antiga e instala com o instalador.
 
http://www.flexdocs.com.br/guiaNFe/guiaAtualizacao.NT2018005.html

Kipiaba,
Grato pela resposta
Resposta do Web Service:
------------------------------------------------------------------------------------------
Falha na conexão com o Web Service:
[A solicitação foi anulada: Não foi possível criar um canal seguro para SSL/TLS.]
 
Estou usando o Windows 7 pack 3 atualizado e o 10 profissional tambem atualizado. Será o que que já aconteceu ? My God!
Você como o homem das soluções tem alguma ideia do que seja?

Valdir Eu estou tentando mas a coisa tá braba, não há meios de fazer isso

Crisvan...
Que eu saiba, as configurações do Leitor devem ser feitas pelo próprio leitor através do seu manual de instruções.
Tenho usado vários tipos de leitores de Código de Barras no meu Sistema sem nenhum problema.
Nunca ouvi falar da existência de uma configuração via Sistema para leitores.
Os Leitores são equipamentos de Entrada de dados como um Teclado.
Posso estar enganado.
Abrs.

Execute o windows update, até a ultima atualização que existir, irá resolver seu problema.
 

Já é permitido! A NFCe já entrou em produção a 4.0 e em outubro desativa a versão anterior 

procura na net tabela cst pis cofins
e também observa se não estou faltando alguma tag, pois isto aconteceu comigo, falta tags, e o código do cst pis cofins estava errado.
dá uma olhada no manual da sefaz, em paralelo com a classe do Gilmer, se você a usa.

Eu faço assim:
 
Function LoadPagamento(oNfe,vNdoc,nTpag,vFinfe,Pag_Troco)
Memvar Tot_Paga
Local oItem,vCnpj:=Space(14),vArea,N:=0
********************************************************************************
Abre_Nfe(.T.)
vArea := Select(); Forpag->(DbGoTop() )
If Forpag->(DbSetOrder(1),DbSeek(vNdoc),Found() )
   If ForPag->Ndoc != vNdoc
      vNdoc := Forpag->Ndoc
   Endif   
   Do While Forpag->Ndoc==vNdoc
      vCnpj := Forpag->Cnpj
      oItem := TVoNfePag()
      N := N+1
      WITH OBJECT oItem
         If N==1
//          :indPag := nTpag
            :tPag  := Forpag->Fpag
            :vPag  := Forpag->Vpag
            Endif       
            If !Empty(vCnpj)
               Cartao->(DbSetOrder(1),DbSeek(vCnpj),Found() )
            :tPag  := Forpag->Fpag
            :vPag  := Forpag->Vpag       
               :CNPJ  := vCnpj
               :tBand := Cartao->Band
               :cAut  := Forpag->Auto
//               :vTroco:= Pag_Troco
            Endif
            oNfe:addItem(oItem)
        END
        Forpag->(DbSkip() )
        Tot_Paga += oItem:vPag
    Enddo
Else
   oItem := TVoNfePag()
   WITH Object oItem
//    :indPag := nTpag
      :tPag   := "90"
      :vPag   := 0
   End
    oNfe:AddItem(oItem)
Endif
********************************************************************************
Return(NIL)        // Fim da proc LoadPagamento()
********************************************************************************               
 

Pessoal o comportamento em homologação não é o mesmo em produção, o sefaz atualizou a pouco dias o schema do xml somente em homologação, coisas que estava passando começou a dar erro, dai atualizei a dll e os schema com versão 4.05 conforme orientação da flexdocs, dai deu certo os teste em homologação, fui atualizar um cliente e da erro, dai a flexdocs me dize para voltar o schema da 4.04 no modulo de produção até o sefaz atualizar os schema no servidor deles, mais como pode estamos a poucos dias da virada, se o sefaz atualizar tipo no dia 30, como irei atualizar mais de 60 clientes.
 
Obs: varios amigos que já estão com os clientes atualizado me passaram xml, tem dois detalhe conforme coloquei num outro post aqui, que nãos sera mais aceito, fiquem atendo com isto.
 
 
 

Isso está acontecendo porque o pessoal do CONAD, que não tem o que fazer, ficam modificando todos os dias o ambiente de homologação, provocando os erros que vocês estão enfrentando. Como eu já havia colocado meu sistema em produção já faz 20 dias, graças a Deus não passei por este tipo de situação. Agora, eles tiveram que retirar, mesmo que momentaneamente algumas rejeições, porque eles ainda não decidiram qual a próxima "besteira" que eles vão fazer... E quem paga o pato somos nós!!!
Nós deveríamos ser MUITO BEM PAGOS pelo CONAD por ter que dar NOSSO JEITO pra deixar funcionando em nossos clientes, atendendo um sem número de exigências deles... fica aqui meu protesto!!!

continua igual , não preencher as tags, mais a forma de pagto vc precisa preencher
function Loadformapagto(oNFe,aDetalhe) local aMeio:={} local j:=0 cSql="SELECT forma,meio,valor" cSql+=" FROM pagto_nfe" cSql+=" WHERE notafiscal='"+aDetalhe[1,1]+"'" cSql+=" AND empresa='"+aDetalhe[1,2]+"'" SqlExecute("commit") aMeio=SqlArray(cSql) if len(aMeio)>0 for j=1 to len(aMeio) oItem := TVoNFePag() WITH OBJECT oItem //:IndPag := aMeio[j,1] // 0 - pagamento à vista; 1 - pagamento à prazo, 2 - outros. :tPag := aMeio[j,2] // 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; 90=Sem Pagamento; 99=Outros. :vPag := val(aMeio[j,3]) //nTotalPag END oNFe:AddItem( oItem ) next else oItem := TVoNFePag() WITH OBJECT oItem //:IndPag := aMeio[i,1] // 0 - pagamento à vista; 1 - pagamento à prazo, 2 - outros. :tPag := "90" // aMeio[i,2] // 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; 90=Sem Pagamento; 99=Outros. :vPag := 0.00 // val(aMeio[i,3]) //nTotalPag END oNFe:AddItem( oItem ) endif return .t.  

Crisvam...
Utilize o Instalador da Dll e quando solicitado, selecione "C:\Wsigo" que no seu caso é a pasta onde será instalada a versão da Dll.
Abrs.
 

Não vi estas grupo/tags no seu xml amigo:
        <pag>
            <detPag>
                <tPag>02</tPag>
                <vPag>219.90</vPag>
            </detPag>
        </pag>
        <cobr>
            <fat>
                <nFat>0000005945</nFat>
                <vOrig>219.90</vOrig>
                <vDesc>0.00</vDesc>
                <vLiq>219.90</vLiq>
            </fat>
        </cobr>
Outra coisa, por favor leia a nota técnica 1.42,, sobre estas informações:
3 Serviço: Autorização de Uso da NF-e / NFC-e (item 4.1 do MOC)
3.1 Leiaute da Nota Fiscal Eletrônica
Grupo B. Identificação da Nota Fiscal Eletrônica
Retirado o campo indicador da Forma de Pagamento do Grupo B. Criação da opção 5 para informar Operação presencial,
fora do estabelecimento (venda ambulante). # ID Campo Descrição Ele Pai Tipo Ocor. Tam. Observação 9 B05 indPag
Indicador da forma de pagamento
E B01 N 1-1 1
0=Pagamento à vista;
1=Pagamento a prazo;
2=Outros.
29.2
B25b
indPres
Indicador de presença do comprador no estabelecimento comercial no momento da operação
E B01 N 1-1 1
0=Não se aplica (por exemplo, Nota Fiscal complementar ou de ajuste);
1=Operação presencial;
2=Operação não presencial, pela Internet;
3=Operação não presencial, Teleatendimento;
4=NFC-e em operação com entrega a domicílio; 5=Operação presencial, fora do estabelecimento;
9=Operação não presencial, outros.
 
Desculpe, vi mais algumas coisas pra observar, então retifiquei seu xml, verifique por favor, embora não analisei o meu sobre as tributações:
329.08 W04h vFCP Valor Total do FCP (Fundo de Combate à Pobreza) E W02 N 1-1 13v2 Corresponde ao total da soma dos campos id: N17c
330 W05 vBCST
Base de Cálculo do ICMS ST
E W02 N 1-1 13v2 331 W06 vST Valor Total do ICMS ST
E W02 N 1-1 13v2 331.01 W06a vFCPST Valor Total do FCP (Fundo de Combate à Pobreza) retido por substituição tributária
E W02 N 1-1 13v2 Corresponde ao total da soma dos campos id:N23d 331.02 W06b vFCPSTRet Valor Total do FCP retido anteriormente por Subst
 
 
-<ide>
<cUF>51</cUF>
<cNF>00011478</cNF>
<natOp>VENDA MER ADQ REC TER OP MERC SUJ REG TR</natOp>
<mod>55</mod>
<serie>1</serie>
<nNF>348</nNF>
<dhEmi>2018-05-26T09:23:06-04:00</dhEmi>
<dhSaiEnt>2018-05-26T09:23:06-04:00</dhSaiEnt>
<tpNF>1</tpNF>
<idDest>1</idDest>
<cMunFG>5106505</cMunFG>
<tpImp>1</tpImp>
<tpEmis>1</tpEmis>
<cDV>0</cDV>
<tpAmb>2</tpAmb>
<finNFe>1</finNFe>
<indFinal>1</indFinal>
<indPres>1</indPres>
<procEmi>0</procEmi>
<verProc>Sigo V.3.01</verProc>
</ide>
-<emit>
<CNPJ>04766802000168</CNPJ>
<xNome>MARLENE BATISTA DA SILVA</xNome>
<xFant>MOVEIS POCONE</xFant>
-<enderEmit>
<xLgr>RUA Coronel Joao Epifanio</xLgr>
<nro>210</nro>
<xCpl>Comercio</xCpl>
<xBairro>Centro</xBairro>
<cMun>5106505</cMun>
<xMun>Pocone</xMun>
<UF>MT</UF>
<CEP>78175000</CEP>
<cPais>1058</cPais>
<xPais>Brasil</xPais>
<fone>146533451830</fone>
</enderEmit>
<IE>132053608</IE>
<IM>00000000002547</IM>
<CNAE>4710701</CNAE>
<CRT>1</CRT>
</emit>
-<dest>
<CNPJ>11169886000118</CNPJ>
<xNome>NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL</xNome>
-<enderDest>
<xLgr>RUA PINHEIRO MACHADO</xLgr>
<nro>S/N</nro>
<xBairro>BOM PASTOR</xBairro>
<cMun>5106505</cMun>
<xMun>POCONE</xMun>
<UF>MT</UF>
<CEP>78175000</CEP>
<cPais>1058</cPais>
<xPais>Brasil</xPais>
</enderDest>
<indIEDest>9</indIEDest>
</dest>
-<det nItem="1">
-<prod>
<cProd>0015007000002</cProd>
<cEAN/>
<xProd>VENTILADOR ARGE PAREDE 60CM MAX</xProd>
<NCM>84145990</NCM>
<CFOP>5405</CFOP>
<uCom>UNC</uCom>
<qCom>1.0000</qCom>
<vUnCom>258.0000</vUnCom>
<vProd>258.00</vProd>
<cEANTrib/>
<uTrib>UNC</uTrib>
<qTrib>1.0000</qTrib>
<vUnTrib>258.0000</vUnTrib>
<indTot>1</indTot>
</prod>
-<imposto>
<vTotTrib>0</vTotTrib>
-<ICMS>
-<ICMSSN202>
<orig>0</orig>
<CSOSN>202</CSOSN>
<modBCST>4</modBCST>
<pMVAST>38.00</pMVAST>
<vBCST>0</vBCST>
<pICMSST>0</pICMSST>
<vICMSST>0</vICMSST>
</ICMSSN202>
</ICMS>
-<IPI>
<cEnq>999</cEnq>
-<IPINT>
<CST>53</CST>
</IPINT>
</IPI>
-<PIS>
-<PISAliq>
<CST>01</CST>
<vBC>258.00</vBC>
<pPIS>0.65</pPIS>
<vPIS>1.68</vPIS>
</PISAliq>
</PIS>
-<COFINS>
-<COFINSAliq>
<CST>01</CST>
<vBC>258.00</vBC>
<pCOFINS>3.00</pCOFINS>
<vCOFINS>7.74</vCOFINS>
</COFINSAliq>
</COFINS>
</imposto>
</det>
-<total>
            <ICMSTot>
                <vBC>0.00</vBC>
                <vICMS>0.00</vICMS>
                <vICMSDeson>0.00</vICMSDeson>
                 <vFCP>0.00</vFCP>
                <vBCST>0.00</vBCST>
                <vST>0.00</vST>
                <vFCPST >0.00</vFCPST >
                <vFCPSTRet>0.00</vFCPSTRet>
                <vIPIDevol>0.00</vIPIDevol>
                <vPIS>0.00</vPIS>
                <vCOFINS>0.00</vCOFINS>
                <vOutro>0.00</vOutro>
                <vNF>258.00</vNF>
                <vTotTrib>0.00</vTotTrib>
            </ICMSTot>
        </total>
-<transp>
<modFrete>9</modFrete>
</transp>
        <pag>
            <detPag>
                <tPag>02</tPag>
                <vPag>258.00</vPag>
            </detPag>
        </pag>
        <cobr>
            <fat>
                <nFat>0000005945</nFat>
                <vOrig>258.00</vOrig>
                <vDesc>0.00</vDesc>
                <vLiq>258.00</vLiq>
            </fat>
        </cobr>
-<infAdic>
<infCpl>PROCON MT 151 ORGAO DE DEFESA DO CONSUMIDOR AV HISTORIADOR RUBENS DE MENDONCA 971 BAIRRO ARAES ED ELDORADO CENTER CUIABA MT</infCpl>
</infAdic>
</infNFe>
</NFe>
Espero ter ajudado.
[]s,

Empresoft,
 
Na versão 4.0 a variável TipoXml := 68 ao invés de 52. Você tem que mudar tanto na classe ValidaXml, como na sua rotina de chamada. Assim: ValidaXml(cDocXml,68)

//-> By JoÆo Santos - SÆo Paulo - Brazil - kapiabafwh@gmail.com - 02/05/2018 //-> Participa‡Æo Especial, Vailton Renato - renato@kssoftware.com.br // MODIFICADO EM: 23/04/2013 #Include "FiveWin.Ch" STATIC oDlgRelog, oTimerRelog, lDesliga := .F., oWnd, oTimerPorta STATIC oFnt, oSaida FUNCTION RELOGIO()     LOCAL oBrush     LOCAL dDataDia := DTOC( DATE() )     DEFINE BRUSH oBrush RESOURCE "CONTATO"     DEFINE FONT oFnt    NAME "Arial" SIZE 08,  20 BOLD     DEFINE DIALOG oDlgRelog FROM 3, 3 TO 20, 50                               ;            TITLE OemToAnsi( "Gerenciador do Rel¢gio do Sistema - "  +         ;                             "Data: " + dDataDia )                             ;            BRUSH oBrush TRANSPARENT STYLE nOR( DS_MODALFRAME )     oDlgRelog:lHelpIcon := .F.     @ 005, 010 BUTTON oSaida PROMPT "&Finalizar" OF oDlgRelog SIZE 70, 14    ;                ACTION ( oDlgRelog:End ) CANCEL     oSaida:cToolTip := OemToAnsi( "Finalizar Gerenciador do Rel¢gio " )     SET FONT OF oSaida   TO oFnt     ACTIVATE DIALOG oDlgRelog CENTERED                                        ;              ON INIT( ACIONA_TIMER( oWnd ) )     IF lDesliga  //-> Se For .T., Desligar  o TIMER.        oTimerRelog:DeActivate()        oTimerPorta:DeActivate()     ENDIF     oFnt:End()     oBrush:End() RETURN NIL STATIC FUNCTION ACIONA_TIMER( oWnd )     DEFINE TIMER oTimerPorta INTERVAL 50  OF oDlgRelog                        ;            ACTION ACIONA_RELOGIO( oWnd )     ACTIVATE TIMER oTimerPorta RETURN NIL //---------------------------------------------------------------------------// STATIC FUNCTION ACIONA_RELOGIO( oWnd )     LOCAL oFont     DEFINE FONT oFont NAME "Arial" SIZE  0, -70 BOLD //-> Fonte Para o Relogio     DEFINE FONT oFnt  NAME "Arial" SIZE 08,  20 BOLD //-> Fonte Para o BotÆo     //-> Timer Que Ativa o Rel¢gio em Qualquer Lugar do Sistema     DEFINE TIMER oTimerRelog INTERVAL 50                                      ;            ACTION ExibeRelogio()     ACTIVATE TIMER oTimerRelog     //-> Fonte do Rel¢gio     SET FONT OF oDlgRelog TO oFont     SET FONT OF oSaida    TO oFnt     oFont:End()     lDesliga := .T.  //-> Para Desligar o Timer do Rel¢gio     oTimerPorta:DeActivate() RETURN NIL //-> Para NÆo Pintar a Tela do Windows, By Vailton Renato - 23/11/2006 STATIC FUNCTION ExibeRelogio()     IF ISWINDOWVISIBLE( oDlgRelog:hWnd )        oDlgRelog:Say( 3, 07, TIME(),                                         ;                  CLR_YELLOW, CLR_BLACK,, .F. )        // .T. Esquerda - .F. Direita da Dialog.     ENDIF RETURN NIL //-> FIM DO PROGRAMA <-------------------------------------------------------//
 

Muito grato João santos

http://www.flexdocs.com.br/guiaNFe/WS.distDFe.html

Olha, nas versões mais recentes fica assim:
Objeto xBrowse = oBrw
obrw:aCols[n]:cTooltip := "Texto a mostrar", onde n = número da coluna

hahahahaha exento, é otimo, é função da nova ortografia do português. kakkakak, acho que asnice mesmo!

Obrigado pessoal,
 
O problema era no tratamento da IE do destinatário, visto que o CFOP 5927 é o código para mercadoria deteriorada, mas exige a IE do destinatário e na hora de enviar a nota eu estava enviando com se o Destinatário fosse exento.
 
 

João Santos,
 
O arquivo foi no email.

CUPCEST.DBF
Uma tabela cest em dbf no arquivo anexo