quarta-feira, 27 de novembro de 2013

SQL Consulta Movto de Estoque ( Datasul )


OUTPUT TO "c:\TEMP\estoque.csv".
DEFINE VARIABLE c-controle AS CHAR FORMAT "X(10)" EXTENT 4 INITIAL ["Fisico","Total","Consignado","DDireto"]NO-UNDO.
DEFINE VARIABLE c-tipo-trans AS CHAR EXTENT 2 INITIAL ["ENT", "SAI"] NO-UNDO.

DEFINE VARIABLE c-esp-doct  AS CHAR EXTENT 37 INITIAL [ "ACA",  /* 01 */
                                                        "ACT",  /* 02 */
                                                        "NU1",  /* 03 */
                                                        "DD ",  /* 04 */
                                                        "DEV",  /* 05 */
                                                        "DIV",  /* 06 */
                                                        "DRM",  /* 07 */
                                                        "EAC",  /* 08 */
                                                        "EGF",  /* 09 */
                                                        "BEM",  /* 10 */
                                                        "NU2",  /* 11 */
                                                        "NU3",  /* 12 */
                                                        "NU4",  /* 13 */
                                                        "ICM",  /* 14 */
                                                        "INV",  /* 15 */
                                                        "IPL",  /* 16 */
                                                        "MOB",  /* 17 */
                                                        "NC ",  /* 18 */
                                                        "NF ",  /* 19 */
                                                        "NFD",  /* 20 */
                                                        "NFE",  /* 21 */
                                                        "NFS",  /* 22 */
                                                        "NFT",  /* 23 */
                                                        "NU5",  /* 24 */
                                                        "REF",  /* 25 */
                                                        "RCS",  /* 26 */
                                                        "RDD",  /* 27 */
                                                        "REQ",  /* 28 */
                                                        "RFS",  /* 29 */
                                                        "RM ",  /* 30 */
                                                        "RRQ",  /* 31 */
                                                        "STR",  /* 32 */
                                                        "TRA",  /* 33 */
                                                        "ZZZ",  /* 34 */
                                                        "SOB",  /* 35 */
                                                        "EDD",  /* 36 */
                                                        "VAR"]  /* 37 */
                                                        NO-UNDO.

EXPORT  DELIMITER ";"
        "DT TRANS"
        "DEPOSITO"
        "ESTAB"
        "ITEM"
        "Doc "
        "TIPO"
        "ESPECIE"
        "CONTA SALDO"
        "CONTA CONTABIL"
        "QUANTIDADE"
        "VALOR nota"
        "contabilizado"
        "Emitente"
        "Cfop ".

FIND FIRST PARAM-GLOBAL NO-LOCK NO-ERROR.

FOR EACH movto-estoq WHERE movto-estoq.dt-trans >= 03/01/2007
                       AND movto-estoq.dt-trans <= 03/31/2007
                        AND    movto-estoq.it-codigo  = "1"
                        AND  movto-estoq.cod-estabel = "101" :

    FIND FIRST ITEM
                    WHERE ITEM.it-codigo = movto-estoq.it-codigo
                        NO-LOCK NO-ERROR.

   
    EXPORT  DELIMITER ";"
            movto-estoq.dt-trans
            movto-estoq.cod-depos
            movto-estoq.cod-estabel
            movto-estoq.it-codigo
            movto-estoq.nro-docto
            c-tipo-trans [movto-estoq.tipo-trans]
            c-esp-doct [movto-estoq.esp-docto]
            STRING (movto-estoq.conta-saldo, param-global.ct-format + param-global.sc-format)
            STRING (movto-estoq.conta-contabil, param-global.ct-format + param-global.sc-format)
            movto-estoq.quantidade
            movto-estoq.valor-mat-m[1]
            movto-estoq.contabilizado
            movto-estoq.cod-emitente
            movto-estoq.nat-operacao
            c-controle [ITEM.tipo-contr]  .

           
END.

OUTPUT CLOSE.

Nenhum comentário:

Postar um comentário