PC Toledo

... não existe UPLOAD do DBF todo. A medida que é manipulado/navegado, é mostrado no browse.

Mesma coisa até pior é no MYSQL a pessoa fazer um SELECT de 100 registros cheio de imagens/PDFs... Vai ficar lento da mesma forma.
O que todo mundo faz é subir só o link e deixa o arquivo lá na pasta dele.

... ele veio como download.
Falta o teste do nome no novo fórum, pra ver se vai bater.
Se der certo, dá pra fazer pelo harbour.

Mais ou menos isto:

SELECT id, physical_name from phpbb_attachments
do while ! eof()
downloadfile( "forumantigo/phpdownload.php?" + Ltrim( Str( id )), "nome fisico ...

... Application" )
oExcel:WorkBooks:Open( cCaminho+"\"+cNomeArquivo )
oExcel:Visible := .F.
oSheet := oExcel:Get( "ActiveSheet" )
oSheet:Cells( 1, 1 ):Select()

nLin:=2 // Pula o cabeçalho
do while !EMPTY(oSheet:Cells( nLin, 1 ):Value)
// Caso a célula 1 estiver vazia, irá sair automaticamente do ...

... win_OleCreateObject( "CAPICOM.SignedData" )

// Seleciona o certificado (pode abrir a janela de seleção)
oSigner:Certificate := oSigner:Select()

// Define o conteúdo a ser assinado
oSignedData:Content := cTexto

// Assina o conteúdo
cAssinatura := oSignedData:Sign( oSigner, .F., 0 ...

... cmdBrowse()

IF ! Used()
SayScroll( "No file in use" )
RETURN Nil
ENDIF
MsgExclamation( "Do not change in browse mode" )
wSave()
Mensagem( "Select and ENTER, ESC abort, to change record exit and use EDIT" )
//Browse( 2, 0, MaxRow() - 3, MaxCol() )
BrowseFivewin()
wRestore()
RecUnlock ...

... cmdBrowse()

IF ! Used()
SayScroll( "No file in use" )
RETURN Nil
ENDIF
MsgExclamation( "Do not change in browse mode" )
wSave()
Mensagem( "Select and ENTER, ESC abort, to change record exit and use EDIT" )
//Browse( 2, 0, MaxRow() - 3, MaxCol() )
Browse()
wRestore()
RecUnlock()

RETURN ...

... cThisXml TEXT CHARSET latin1;
DECLARE cTipoAmbiente VARCHAR(1) ;
DECLARE nQtde DECIMAL(14,4) ;

SET cThisXml := '' ;
SET cTipoAmbiente := ( SELECT SEFAZNFEAMBIENTE FROM JPTABSEFAZ );

IF cTipoAmbiente <> '2' THEN
LEAVE CBSIBS ;
END IF;

SELECT
CASE
WHEN LENGTH( TRCLAFIS ) <> 0 THEN ...

... é como uma janela para os dados, mas com algumas limitações importantes. Aqui vai o que você precisa saber:
Para que serve uma view?
- Consulta (SELECT): Sim! Essa é a principal função de uma view. Ela permite criar uma "tabela virtual" com base em uma consulta SQL. Assim, você pode simplificar ...

SELECT "000", "000000", 0.00, 0.00, 0.00
INTO cICSCST, cICSClaFis, nICSBase, nICSAliquota, nICSReducao;
...


Criar os campos zerados, depois é só trocar o SELECT pra puxar de algum lugar definido.

Pois é...
Criar o XML é o menor dos problemas.
É só uma parte minúscula do conjunto.

Se for ...

... ze_XmlTag( 'tpOperGov', cOpGov ),
'</gCompraGov>' );
END IF;

*/

SET cThisXml := CONCAT( cThisXml, '</ide>' );


Agora só alterar o SELECT pra trazer os campos, ainda não sei de onde kkkkk
E tá pronta essa parte pro ano que vém....
E tem gente que vai esperar ACBR ou outro pra mexer ...

... uma idéia das coisas.

À primeira vista, posso manter isso e apenas adicionar os novos impostos.

É como se no aplicativo eu tivesse meus próprios códigos internos de CFOP, classificação NCM, etc.

Apenas pesquiso como foi preenchido o pedido, e vém toda parte tributária.
Um simples SELECT no MySQL.

... str,
"indMonoDif": str})
# preenche NaN com vazio
df = df.fillna("")

# Se colunas com inteiros transformados em string:
for col in df.select_dtypes(include=['int64']):
df[col] = df[col].astype(str)

# Se quiser arredondar floats como antes:
for col in df.select_dtypes(include=['float ...

... IF( WEEKDAY( @dInicial ) == 0, @dInicial, DATE_SUB( @dInicial, INTERVAL WEEKDAY( @dInicial ) + 1 DAY ) );
SET @dFinal := LAST_DAY( @dDate );

SELECT DISTINCT
IF( MONTH( A ) = MONTH( @dDate ), CONCAT( LPAD( DAY( A ), 2 ), IF( fa.horadata IS NULL, '', '*' ), '' ), '' ) AS SUN,
IF( MONTH( B ...

... dInicial := DATE_SUB( @dDate, INTERVAL DAY( @dDate ) - 1 DAY );
SET @dInicial := DATE_SUB( @dInicial, INTERVAL WEEKDAY( @dInicial ) + 1 DAY );

SELECT DISTINCT
if( MONTH( A ) = MONTH( @dDate ), CONCAT( lpad(DAY( A ),2), if( fa.horadata IS NULL, '', '*' ), '' ), '' ) AS SUN,
if( MONTH( B ...

... LOCAL cSQL;
, oSQL;
, oSQL_FLAG;
, h1, h4, tamanho;

IF ! ::PIX_IMPRESSO
cSQL:="SELECT "
cSQL+="DATABASE() AS FILIAL, "
cSQL+="pedidospagamento.PEDIDOS_ID, "
cSQL+="pedidospagamento.VALOR "
cSQL+="FROM pedidospagamento "
cSQL ...