PC Toledo

... PedidoStatus( :Number( "IDPEDIDO" ), ;
:String( "PDSTATUS", 1 ), :String( "PDCONF", 1 ) ), ;
iif( "NF." $ cStatus .OR. ( "COMPRA" $ :String( "TRANSACAO", 12 ) .AND. :String( "PDCONF", 1 ) == "S" ), " ", ;
iif( "FATURAR" $ cStatus, Chr(2), Chr(2) ) ) }, ;
{ | cStatus | cStatus := PedidoStatus ...

... PedidoStatus( :Number( "IDPEDIDO" ), ;
:String( "PDSTATUS", 1 ), :String( "PDCONF", 1 ) ), ;
iif( "NF." $ cStatus .OR. ( "COMPRA" $ :String( "TRANSACAO", 12 ) .AND. :String( "PDCONF", 1 ) == "S" ), " ", ;
iif( "FATURAR" $ cStatus, Chr(2), Chr(2) ) ) }, ;
{ | cStatus | cStatus := PedidoStatus ...

... atualização
RECOVER USING oError

Alert( "Não foi possível concluir a inclusão do pedido." + hb_osNewLine +;
"Erro " + LTrim( Str( oError:genCode ) ) + " / " + oError:description ;
)
ExecSQL( "ROLLBACK;" ) // desfaz a atualização
lRet := .F.

END SEQUENCE

RETURN lRet

Transaction Transacao

... 000


:cSQL := "SELECT IDPEDIDO, PDDATEMI, LPAD( PDCADASTRO, 6, '0' ) AS ZEROCADASTRO, " + ;
" LEFT( JPCADASTRO.CDNOME, 30 ) AS NOME, LEFT( JPTRANSACAO.TRNOME, 12 ) AS TRANSACAO, " + ;
" PDVALNOT, PDCONF, PDSTATUS, LPAD( JPNOTFIS.NFNOTFIS, 9, '0' ) AS ZERONOTFIS, Right( JPNOTFIS.NFFILIAL, 2 ) AS ...

... CHR(227),"a") // TIRA o a com til que aparecia um caractere esquisito
//
IF oOle:status=200 // 200=processado com sucesso para qualquer transacao da comtele
IF 'sucesso' $ aRet
ALERT2('VERDE','SMS enviado para processamento.') // padronizei as msg de retorno deles nao me interessa quando ...

... SELECT LPAD( IDPEDIDO, 6, '0' ) AS PEDIDO, PDDATEMI, PDCLIFOR," + ;
" LEFT( JPCADASTRO.CDNOME, 30 ) AS NOME, LEFT( JPTRANSA.TRDESCRI, 12 ) AS TRANSACAO, " + ;
" PDVALNOT, PDCONF, PDSTATUS, JPNOTFIS.NFNOTFIS, RIGHT( JPNOTFIS.NFFILIAL, 2 ) AS FILIAL " + ;
" FROM JPPEDIDO " + ;
" LEFT JOIN ...

... a resolução do monitor.

Se vc já tem a resolução do monitor, eh so definir o dialog em relação a esse tamanho.

tipo:

INIT DIALOG oDlg TITLE "Transacaoes TEF realizadas" ;
AT 0, 0 SIZE ResoluçãoMonitor-100,ResoluçãoMonitor-200 NOEXIT CLIPPER ;
ON EXIT {|| SaidaBrowseTef() } ;
STYLE WS_POPUP+WS ...

... cXML+= '<Cabecalho Versao="1" xmlns="">'
cXML+= '<CPFCNPJRemetente><CNPJ>'+ALLTRIM(::cab_CPFCNPJRemetente)+'</CNPJ></CPFCNPJRemetente>'
cXML+= '<transacao>false</transacao>'
cXML+= '<dtInicio>'+::DataToYYYY_MM_DD(::cab_dtInicio)+'</dtInicio>'
cXML+= '<dtFim>'+::DataToYYYY_MM_DD(::cab_dtFim)+'</dtFim ...

... cXML+= '<Cabecalho Versao="1" xmlns="">'
cXML+= '<CPFCNPJRemetente><CNPJ>'+ALLTRIM(::cab_CPFCNPJRemetente)+'</CNPJ></CPFCNPJRemetente>'
cXML+= '<transacao>false</transacao>'
cXML+= '<dtInicio>'+::DataToYYYY_MM_DD(::cab_dtInicio)+'</dtInicio>'
cXML+= '<dtFim>'+::DataToYYYY_MM_DD(::cab_dtFim)+'</dtFim ...

... taxa de servico
aAdd( aCampos , { "TXADES" , "N" , 15 , 2 } ) // taxa de desembarque
aAdd( aCampos , { "STSTRA" , "C" , 3 , 0 } ) // status transacao
aAdd( aCampos , { "STSFIN" , "C" , 1 , 0 } ) // status FINAL da transacao (0- aprovada, 1-Pendente de confirmacao, 2-Confirmada, 3-Cancelada ...

... 7145</CodCidade>"+;
"<CPFCNPJRemetente>03531116000145</CPFCNPJRemetente>"+;
"<RazaoSocialRemetente>EMPRESA MODELO</RazaoSocialRemetente>"+;
"<transacao/>"+;
"<dtInicio>2017-04-19</dtInicio>"+;
"<dtFim>2017-04-19</dtFim>"+;
"<QtdRPS>1</QtdRPS>"+;
"<ValorTotalServicos>820.00</ValorTotalServicos ...

... php", .F. )
If oConecta:readyState = 1
oConecta:setRequestHeader( "Content-Type", "application/x-www-form-urlencoded" )
oConecta:Send("codigo_transacao=1"+;
"&loja_primaria=teste"+;
"&nome_primario=teste"+;
"&senha_primaria=teste"+;
"&id_terminal=001"+;
"&uf_terminal=RJ"+;
"&versao=3.94 ...

... codonline := ""

oXml := TXmlDoc():New()
oTag := TXmlTag():New( oXml, 'cellcard' )
oTag:addTag( 'versao', '3.94' )
oTag:addTag( 'codigo_transacao', '1' )
oTag:addTag( 'loja_primaria', 'teste' )
oTag:addTag( 'nome_primario', 'teste' )
oTag:addTag( 'senha_primaria', 'teste' )
/*
oTag:addTag ...

Transacao........: 503000 VENDA PARA CONSUMO
Tribut.UF........: 000002 SAO PAULO
Tribut.Cli/Forn..: 000001 CADASTRO GERAL
Tribut.Prod/Serv.: 000008 COMBUSTIVEL BIODIESEL


O contador não pode nem falar que saiu erro por ele não entender...
Isso tá exatamente do jeito que ele fala.

Quando Venda ...

... 2
DO WHILE mconta = CONTA .AND. .NOT. EOF()

@mlinha,1 SAY DATA
mdat_sal = DATA
mct = CT
SELECT 3
SEEK mct
IF EOF()
@22,1 SAY 'CODIGO DE TRANSACAO INEXISTENTE,'
@22,32 SAY mct PICTURE '99'
WAIT ', ENTER PARA ENCERRAR'
CLOSE ALL
RETURN
ENDIF

@mlinha,13 SAY HISTORICO
SELECT 2
@mlinha ...